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COMO CRIAR UMA FIGURA 



~M~QVEL NA MEMORIA 



MOVIMENTOS MAIS RAPIDOS 

UM SAPO QUE PULA E 

UM TANQUE QUE ATIRA 



Nao e so o programador experiente que 
pode se drvertir com linguagem de 
maquina. Utlize alguns programas 
pequenos, escritos em c6digo, para dar 
mais vtda a seus programas em BASIC. 



Linguagem de maquina e coisa bem 
complicada. Para a maioria dos usua- 
rios de micros, ela nao passa de um 
amontoado de numeros sem sentido. 
Porem, se voce usar algumas rotinas em 
c6digo dentro de programas BASIC, lo- 
go notara as vantagens da linguagem de 
maquina e ficara mais motivado a en- 
frentar as dificuldades. 

Os programas que aqui apresentamos 
utilizam o BASIC para colocar progra- 
mas em codigo de maquina na memoria 
do micro, Com isto, pode-se movimen- 
tar figuras em alta resolucao muito mais 
rapidamente que usando so BASIC. 

Os programas sao especificos para 
cada computador. O MSX e o Apple 
dispoem de comandos BASIC com ve- 
locidade satisfat6ria, e seus programas 
nao precisam de linguagem de maquina 
para produzir os mesmos resultados dos 
outros micros. Ja publicamos um pro- 
grama desse tipo para o ZX-81. 



Para montar os graficos das figuras 
1 e 2, precisamos fazer tres coisas. Fri- 
meiro, criar na memoria do Spectrum 
a "grade" ou quadriculado que conte- 
ra o desenho em alta resolucao. Esse 
quadriculado sera composto por carac- 
teres deftnidos pelo usudrio. Segundo, 
elaborar um programa que movimente 
o desenho na tela. Terceira, trocar os ca- 
racteres graficos no quadriculado pela 
figura que queremos mover — no nos- 
so caso, o tanque e o sapo. 



CARACTERES DEFIN1D0S PELO USUARIO 



O Spectrum permite ao usuario mu- 
dar o formato de deierminados carac- 
teres (caracteres definidos pelo usuario, 



ou UDGs). Cada caractere e formado 
por 64 pontos — alguns com a cor do 
fundo (INK) e alguns com a cor da fren- 
te (PAPER) — , num arranjo de oito por 
oito. Desde que nao ultrapassemos os li- 
miies deste quadrado, podemos escrever 
um programa que de ao caractere o for- 
mato que desejarmos. 

Existem 21 caracteres desse tipo: A 
ate U, inclusive. Como mostra a figura 
1, e possivel juntar os caracteres — con- 
juntos de oito por oito pontos — para 
formar figuras maiores. Pode-se ter, por 
exemplo, duas figuras com tres por tres 
caracteres ao mesmo tempo (ainda so- 
brarao 2 UDGs), ou cinco figuras com 
dois por dots caracteres. 

Tanto o sapo quanto o tanque apre- 
sentados neste artigo usam uma figura 
de tres por tres caracteres, mais ou me- 
nos assim: 
ABC 

D E F 

G H I 

Pode-se colocar isio na tela empre- 
gando PRINT AT, em BASIC; porem, 
a melhor alternativa e usar a rotina em 
linguagem de maquina criada pelo pro- 
grama a seguir. 

10 IF PEEK 23733-127 THEN 
CLEAR 32399: LET B-32400: LET 



Z-0 

20 IF PEEK 23733-255 THEN 
CLEAR 65199: LET B-65200: LET 
Z-l 

30 FOR N-B TO B+129: READ A: 
POKE N,A: NEXT N 

40 IF Z-l THEN POKE 65258, 
178: POKE 65259,254: POKE 
65277,179: POKE 65278,254 

50 SAVE -Padrao'CODE B.130 

60 STOP 
100 DATA 24,55,1,22,0,0,32.32, 
32,22,0,0,32,32,32,22,0,0,32, 
32 

110 DATA 32,22,0,0,144,145,146 
,22,0,0,147,148,149,22,0,0,150 
.151.152.22 

120 DATA 0,0,153,154,155,22.0, 
0,156,157.158.22,0,0,159,160, 
161,58.146.126 

130 DATA 254,1,1,18,0.40,8,56, 
4,203,33,24,2,14,0,221,33,147, 
126,221 

140 DATA 9.58.137.92,71,62,24, 
144,221,119,1.60,221,119,7,60, 
221,119,13,58 

150 DATA 136,92,71.62,33,144, 
221,119,2,221,119,8,221,119,14 
.221,229,62,2,205 
160 DATA 1,22,209,1,18,0.205. 
60,32,201 

Talvez voce ache que esta e uma ma- 
neira complicada de fazer o que alguns 
poucos PRINT AT fariam. Mas existem 
algumas razoes para a substituicao: 
I. Uma vez digitado e gravado, este pro- 
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1. Desenho do tanque. Cadfl 
quadrado grande tern oito 
por oito pontos. 
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grama pode ser usado quantas vezes vo- 
ce quiser. 

2. Quando chamada de dentro de urn 
programa BASIC, a rotina criada impri- 
mira os caracteres nuraa velocidade mui- 
to maior que os PRINT AT. 

Sem saber codigo de maquina e im- 
possivel compreender o que os numeros 
de cada linha DATA significam, mas 
tentaremos dar uma ideia de como fun- 
ciona o programa em BASIC. 

As Iinhas 10 e 20 determinant onde 
a rotina em codigo sera colocada, de- 
pendendo do camanho da memoria de 
seu Spectrum — 16K ou 48K, Note que 
os comandos podern nao funcionar em 
micros de 16K com expansao. Se este for 
o caso, mude a linha 20 para: 

20 CLEAR 65199; LET B-65200; 

LET Z-l 

Os ruimeros incluidos nas Iinhas DA- 
TA sao trans feridos para a raem6ria do 
computador pela linha 30. 

A linha 50 grava o programa. Voce 
pode mudar o nome dele, se quiser. 

As Iinhas 100 a 160 contem os mime- 
ros que, quando colocados na memdria, 
formam a rotina em cbdigo. 

Esta rotina e gravada de uma manei- 
ra diferente. Apos digitar e rodar o pro- 
grama, o computador pedira ao usua- 
rio que ligue o gravador e aperte qual- 
quer tecla, a fim de gravar a rotina em 
linguagem de maquina. 

Ja que a rotina em codigo esta den- 
tro da memdria — colocada pelo pro- 
grama BASIC ou lida por meio do cas- 
sete — , vamos usa-la. Pressione NEW 
e ENTER, para que o programa antigo 
nao atrapalhe o novo. 




20 LET print-32400: LET B- 
32402: IF PEEK 23733-255 THEN 
LET print-65200: LET B-65202 

90 BORDER 7: PAPER 7: INK 4: 
CLS 

100 LET Y-8: LET K-15: LET Yl- 
8: LET Xl-15: LET Z-l 
110 LET A&-INKEYS 
120 IF A$-"z" AND X>0 THEN 
LET Xl-X-1 : LET Z-l 
130 IF AS-"X" AND X<29 THEN 
LET Xl-X+1: LET Z-2 
140 IF AS-"P" AND Y>0 THEN 
LET Yl-Y - 1 

150 IF AS-"1" AND Y<18 THEN 
LET Yl-Y+1 

170 LET X-Xl: LET Y-Yl 
180 PRINT AT Y,Xj: POKE B,Z: 
RAND USR print 
190 GOTO 110 

Note que a palavra "print" em mi- 
nusculas deve ser digitada letra por le- 
tra, ao contrario de PRINT, que fica na 
tecla P. 

Este programa permite a movimen- 
tacao de figuras na tela usando as teclas 
Z, X, P e L. Quando ele for rodado, ve- 
remos que foram criadas duas figuras 
com tres por tres caracteres; a segunda 
e" formada por JKLMNOPQR. Pode-se, 
assim, obter duas versoes do mesmo gra- 
fico. No caso do tanque, um aponta pa- 
ra a direita, quando vai nesta direcao, 
e outro aponta para a esquerda, quan- 
do se movimenta para a esquerda. 

Veremos tambem que, conforme a fi- 
gura se move, deixa para tras um rastro 
que nao foi planejado. Para corrigir is- 
to, acrescente a linha: 

160 PRINT AT Y.X;: POKE 8,0: 
RAND USR print 




Ela produz uma figura de tres por 
tres caracteres em branco, que vai apa- 
gando as posicoes ja ocupadas. 



UM TANQUE DE GUERRA 



Para transformar os caracteres na fi- 
gura de um tanque, acrescente as proxi- 
mas Iinhas. Elas montam o tanque apon- 
tando para a direita no quadriculado 1 
e para a esquerda no quadriculado 2. 

10 FOR N-USR ■*" TO USR *r - +7 
: READ A: POKE N.A: NEXT N 
1000 DATA 0,0,0,0,0,0,0,0,0.0,0 
,0.0,0,0,0 

1010 DATA 0,0,0,0,0,0,0,0,0.0,0 
,0.255,0,1,0 

1020 DATA 0.0,1.63,255.255,255, 
0,0,0. 192 , 224 . 254 , 254 , 224 , 
1030 DATA 63,127,255,122,48,6,0 
,0,255,255,255,235,65,102,0.0 
1040 DATA 255,255.255,174,6,100 
.0.0 

1050 DATA 0.0,0,0.0,0,0,0.0,0,0 
,0,0,0,0,0 

1060 DATA 0,0,0,0,0,0,0,0,0.0.3 
,7,127.127,7.0 

1070 DATA 0.0,128,252,255,255,2 
55,0.0.0,0,0,255,0,128.0 
1080 DATA 255,255,255.117,96,38 
,0.0.255,255,255,215,130,102,0, 


1090 DATA 252.254,255,94,12.96, 
0,0 

Resta criar os dois caracteres que irao 
"armar" o tanque. Aperte BREAK e di- 
gite: 

10 FOR N-USR "a" TO UBR "t"+7 
: READ A: POKE N.A: NEXT N 
115 IF INKEYS-" " THEN GOTO 
200 
200 IF Z-2 THEN GOTO 300 





14 CODIGO DE MAQUINA 14 



muni 



210 FOR H-X-l TO STEP -1 

220 PRINT INK 5; AT Y+1,N;CHR$ 

162 

230 PAUSE 1 

240 PRINT AT Y+1,N;" " 

250 NEXT N 

260 GOTO 110 

300 FOR N-X+3 TO 31 

310 PRINT INK 5; AT Y+1,N;CHRS 

163 

320 PAUSE 1 

330 PRINT AT Y+l.N;" * 

340 NEXT N 

350 GOTO 110 
1100 DATA 0,4.9,2,176,2,9,4,0,3 
2,144.64,13,64,144,32 

Agora a teela SPACE pode ser usa- 
da para dar tiros. 



UM5AP0 



Para trans formar as figuras em urn 
sapo, voce precisara livrar-se do tanque. 
Para isso, grave o programa e depois 
pressione <NEW> e < ENTER >. 

O tanque e o programa que o movi- 
mentava serao anulados, mas a rotina 
em cddigo que cuida do quadriculado 
permanecera na mem6ria ate que o mi- 
cro seja desligado. 

Digite CLEAR 32399 no Spectrum de 
I6K, ou CLEAR 65199, no de 48K, re- 
servando o topo da membria para a ro- 
tina em c6digo. Digite, depois, LOAD 
"" CODE e ligue o gravador para car- 
regar a rotina em codigo do cassete. 

Com a rotina na memdria do micro, 
digite e rode o programa que cria o sapo. 

30 RESTORE 5000: FOR N-USR * 
a" TO USR *r*+7s READ A: POKE N 
,A: NEXT N 

5000 DATA 0,0,0.0,0.0,0,0.0,0,0 
,0,0.0,0,0 

5010 DATA 0,0.0,0,0,0,0,0.0,0,0 
,0,0,0,1,1 

50 20 DATA 0,0,0,0,0,128,192,176 
,0,0.0,0.0,0,0.0 

5030 DATA 4,15,31.63,127,254.24 
8, 127. 96, 240, 224, 192, 64 ,32, 156, 
192 

5040 DATA 0,0.0,0.0,0,0,0 
5050 DATA 0,0,0,0.0.0,0.0,0,0,0 
,0.0,1,3,7 

5060 DATA 8,28,27,70,255,254,25 
2.249.0,0.0.0,0.0.0,0 
5070 DATA 7,7.15,30,54,38,70,70 
. 250. 196, C, 0,0, 0.0.0 
5080 DATA 0,0,1,1.3,6.2,0,140,1 
44,16,32,32,48,32,0 
5090 DATA 0,0,0,0,0,0,0,0 

Para control ar o movimento do sa- 
po, digite: 




10 BORDER 0: PAPER 0: INK 4: 
BRIGHT 1: CLS 

20 LET P-32400; IF PEEK 23733 
-255 THEN LET P-65200 
100 PRINT AT 10,0;: RAND USR P 
: IF INKEYS-"" THEN GOTO 100 
110 RESTORE 1000: FOR F-l TO 5 
120 READ A.B.C: POKE P+2.A: 
PRINT AT B,C;: RAND USR P 
130 PAUSE 2: CLS : NEXT F 
150 PRINT AT 10,12;: RAND USR 
P: IF INKEYS-"" THEN GOTO 150 
200 FOR F-l TO 5 
210 READ A.B.C: POKE P+2.A: 
PRINT AT B,C;: RAND USR P 
220 PAUSE 2: CLS : NEXT F 
230 GOTO 100 
1000 DATA 1.10,0,2.7.3,2,5,6,2, 
7,9,1,10,12,1,10,12,2,7,15,2,5, 
18.2,7,21,1,10,24 
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O Apple nao precisa de linguagem de 
maquina para movimentar uma figura 
em alta resolucao: basta criar uma ta- 
bela de figuras na mem6ria do micro e 
usar o comando DRAW. 

Se nao dispusermos de um editor de 
figuras, o trabalho podera ser bem eom- 
plicado. Mas voce nao sera obrigado a 
usa-lo, pois o programa a seguir cria o 
tanque e o movimenta. 



10 
20 
,E 
30 
32 
40 
50 
60 



HOME :E - 35000: HIMEM: E 
F - INT (E J 256) : POKE 232 
- F * 256: POKE 233, F 

FOR I - E TO E + 41 + 14 * 



READ A 

NEXT 

HGR : SCALE 



POKE I. A 



1: ROT- 0:X - 
130:Y - 90:F - 0: GOTO 410 
7 LX - X:LY - Y : LF - F 
60 GET KS: IF KS - "" THEN 80 
90 IF KS - "P" AND Y > 10 THEN 

Y - 2: GOTO 140 

IF K& - "L" AND Y < 140 TH 

- Y + 2: GOTO 140 

IF KS - "Z" AND X > 12 THE 
■ X - 3: F - 0: GOTO 140 



Y - 

100 

EN Y 

110 

N X ■ 

120 

EN X 

130 

140 

80 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 



IF KS - "X" AND X < 220 TH 
- X + 3:F - 1: GOTO 140 
IF KS - " " THEN 490 
IF LX - X AND LY - Y THEN 

THEN 250 



IF LF - 

HCOLOR- 

AT LX.LY 

AT LX.LY + 8 

AT LX + 8.LY 

AT LX + 8.LY + 8 

AT LX + 16, LY 

AT LX + 16. LY + 8 

THEN 410 



DRAW 
DRAW 
DRAW 
DRAW 
DRAW 
DRAW 
IF F 
GOTO 330 




250 HCOLOR- 

260 DRAW 9 AT LX.LY 

270 DRAW 10 AT LX,LY + 8 

280 DRAW 11 AT LX + 8.LY 

290 DRAW 12 AT LX + 8,LY + 8 

300 DRAW 13 AT LX + 16, LY 

310 DRAW 14 AT LX + 16, LY + B 

320 IF F - THEN 410 

330 HCOLOR- 3 

340 DRAW 1 AT X,Y 

350 DRAW 2 AT X,Y + 8 

360 DRAW 3 AT X +■ 8,Y 

3 70 DRAW 4ATX+8.Y+S 
380 DRAW 5 AT X + 16. Y 

390 DRAW 6 AT X + 16, Y + 8 

400 GOTO 70 

410 HCOLOR- 3 

420 DRAW 9 AT X,Y 

430 DRAW 10 AT X,Y + 8 

440 DRAW 11 AT X + 8.Y 

4 50 DRAW 12ATX+8.Y+8 
460 DRAW 13 AT X + 16, Y 
470 DRAW 14 AT X + 16, Y + 8 
480 GOTO 70 

490 IF F - THEN 560 

500 HCOLOR- 3 

510 DRAW 7 AT X + 24, Y 

520 FOR I • 1 TO 100: NEXT 

5 30 HCOLOR- 

540 DRAW 7 AT X + 24 , Y 

550 GOTO 80 

560 HCOLOR= 3 

570 DRAW 8 AT X - 8. Y 

580 FOR I - 1 TO 100: NEXT 

590 HCOLOR- 

600 DRAW 8 AT X - 8, Y 

610 GOTO 80 

2000 DATA 20 .0 ,42 .0 ,74 ,0 

,106 ,0 ,138 ,0 ,170 ,0 ,202 . 
,234 ,0 ,10 ,1 ,42 ,1 ,74 ,1 
,106 ,1 ,138 ,1 ,170 ,1 ,202 ,1 

,234 .1 ,10 ,2 ,42 ,2 ,74 .2 , 
106 ,2 ,138 ,2 

2010 DATA 72 ,73 ,73 ,218 . 
219 ,219 ,74 ,73 ,41 .213 ,63 . 
223 ,155 ,41 ,45 .45 ,173 ,59 , 
63 ,63 ,191 ,73 ,9 ,45 ,213 .21 
9 ,219 ,19 ,0 ,0 ,0,0 
2020 DATA 40 ,45 .45 ,45 , 
213 ,63 ,63 .63 ,55 ,45 ,45 ,45 

,173 ,251 ,31 ,63 ,87 ,109 .73 

,209 ,59 .223 ,159 .73 ,73 .13 
7 ,219 ,219 ,155 .0 .0 ,0 
2030 DATA 72 ,73 ,73 ,21B , 
219 ,219 ,106 .73 ,73 .218 .59 

,63 ,63 .46 ,45 .45 ,45 ,213 ,6 
3 .63 .63 ,55 ,45 ,45 ,45 ,173 
,219,219 ,155 ,0 ,0, 
2040 DATA 40 ,45 ,45 ,45 , 
213 ,63 ,63 .63 ,55 ,45 ,45 ,45 

,173 ,59 .255 ,31 ,55 .77 ,73 
,141 ,27 ,255 ,59 ,87 ,73 ,73 , 
209 ,219 ,219 ,19 ,0 ,0 
2050 DATA 72 ,73 ,73 ,216 
,219 ,219 ,74 ,73 ,73 ,218 ,219 

,219 ,42 ,45 ,45 ,45 ,213 ,219 

,219 ,19 .77 ,73 .137 ,219 .21 
9 ,155 ,0 ,0 ,0 ,0 .0 .0 
2060 DATA 40 ,45 ,45 ,77 , 
218 ,63 ,63 ,63 ,46 ,45 ,45 .45 

.213 ,59 ,63 ,31 ,87 .73 ,109 
,209 .219 ,27 ,191 ,73 .73 .137 | 



,219 .219 ,155 .0 .0 .0 
2070 DATA 72 ,73 ,73 ,218 
,219 ,251 ,106 ,105 ,73 ,218 ,2 
19 ,27 .87 ,'3 ,109 ,213 ,219 , 
219 ,23 ,77 .77 ,137 ,219 ,219 
,159 ,0 ,0 ,0 ,0 ,0 ,0 ,0 
2080 DATA 72 ,73 ,73 ,218 
,251 .219 ,74 ,9 ,77 ,213 ,251 
,219 ,19 ,13 ,109 ,73 ,218 ,223 

,219 ,74 ,9 ,77 .213 ,27 ,223 
,155 ,0 ,0 .0 ,0 .0 ,0 
2090 DATA 72 ,73 .73 ,218 
,219 ,219 ,74 ,73 ,73 ,218 ,219 

,219 .42 .45 ,45 ,45 ,213 .219 

,219 ,83 ,73 ,73 ,213 ,219 ,21 
9 .19 ,0 ,0 ,0 ,0 ,0 ,0 
2100 DATA 72 ,4S .45 ,173 
.59 ,63 ,63 ,191 ,45 .45 ,45 ,1 
73 ,27 ,31 ,63 ,191 ,9 ,109 ,73 

,218 ,255 ,219 ,74 ,73 ,73 ,21 
8 ,219 ,219 .2 ,0 ,0, 
2110 DATA 72 ,73 ,73 ,218 
.219' ,219 ,74 ,73 ,9 ,213 ,63 , 
63 ,255 ,42 .45 ,45 ,45 ,213 ,6 
3 .63 ,63 ,55 ,45 ,45 .45 ,173 
,219 ,219 ,155 ,0 ,0 .0 
2120 DATA 40 ,45 .45 .45 , 
213 ,63 ,63 .63 ,55 .45 ,45 ,45 

,173 ,59 ,31 ,31 .63 .14 ,77 , 

73 ,213 ,59 .223 .191 .73 ,73 , 
137 ,219 ,219 ,155 ,0, 
2130 DATA 72 ,73 .73 .218 
,219 ,219 ,42 ,77 ,73 ,209 ,219 

,27 ,63 ,46 ,45 ,45 ,109 ,218 
.63 .63 ,63 .46 ,109 ,73 ,209 , 
219 ,219 ,19 ,0 ,0 ,0 ,0 
2140 DATA 40 ,45 ,45 ,45 , 
213 ,63 .63 ,63 ,55 ,45 ,45 ,45 

,173 ,27 .63 .31 .31 ,78 ,73 , 
109 ,218 ,251 .59 ,87 ,73 ,73 , 
209 ,219 ,219 ,19 .0 ,0 

A linha 10 reserva o topo da memoria 
para a tabela de figuras. O Apple 6 entao 
informado da localizacao da mesma pela 
linha 20. O FOR...NEXT das linhas 30 a 
50 monta a tabela na membria. 

A linha 60 liga a tela de alta resolu- 
cao, estabelece a escala e a orienta^ao 
do desenho. Alem disso, coloca as coor- 
denadas do centre da tela em X e Y. Em 
seguida, o programa e desviado para a 
linha 140, para que uma imagem inicial 
do tanque seja feita. 

As linhas 70 a 140 movimentam o 
tanque atraves das leclas Z, X, P e L. 
Tratam tambem de nao deixa-lo ultra- 
passar os limites da tela. As variaveis F 
e LF sao sinaiizadores que indicam a di- 
recao atual e antiga do tanque; dese- 
nham e apagam a figura na orientacao 
correta. A linha 140 evita que o tanque 
seja apagado e desenhado, sem sair do 
lugar. A linha 130 verifica se a tecla de 
espaeo foi pressionada, saftando para a 
linha 420, onde comeca a porcao do 
programa que dispara um tiro — na di- 
recao correta! 

As linhas 150 a 320 apagam o tanque 
de sua ultima posicao, conforme o va- 



lor de LF. As linhas 330 a 480 dese- 
nham-no na nova posicao, conforme o 
valor de F. 

Note que as linhas DATA 2000 a 
2140 foram geradas com o programa 
editor apresentado no artigo da pagina 
316. Os blocos do tanque sao numera- 
dos de cima para baixo e, depois, da es- 
querda para a direita. 

HCOLOR =3 desenha o tanque em 
branco. Se utilizarmos HCOLOR=l, 
teremos a cor verde, mas o desenho se- 
ra ligeiramente deformado. Isto ocorre 
devido a maneira como o Apple usa as 
cores em alta resolucao. 



UM SAP0 



O programa a seguir monta uma ta- 
bela correspondente ao sapo da figura 2. 

10 HOME :E - 35000; HIMEM: E 
20 POKE 233, INT (E / 256): PO 
KE 232. E - 256 * PEEK (233) 
30 FOR I - E TO E + 41 + 10 * 
32: HEAD A: POKE I, A: NEXT I 
40 HGR : SCALE- 1: ROT- 
100 GOSUB 1800: GOSUB 1300 
110 GOSUB 1000 

120 GET K$: IF KS < > " " THE 
N 120 

130 GOSUB 1200: GOSUB 1000 
140 GOSUB 1500: GOSUB 1300 
150 GOSUB 1040: GOSUB 1400 
160 GOSUB 1200: GOSUB 1500 
170 GOSUB 1040: GOSUB 1300 
180 GOSUB 1600: GOSUB 1040 
190 GOSUB 1400: GOSUB 1200 
200 GOSUB 1600: GOSUB 1040 
210 GOSUB 1300: GOSUB 1700 
220 GOSUB 1000: GOSUB 1400 
230 GOSUB 1200: GOSUB 1700 
240 GOSUB 1000: GOTO 100 
1000 DRAW 1 AT X,Y 
1010 DRAW 2 AT X.Y + 8 
1020 DRAW 3 AT X + 8,Y 
1030 DRAW 4 AT X + 8,Y + 8 
1035 RETURN 
1040 DRAW 5 AT X.Y 
1050 DRAW 6 AT X + 8,Y - 16 
1060 DRAW 7ATX+8.Y-8 
1070 DRAW 8 AT X + 8,Y 
1080 DRAW 9 AT X + 16, 

Y - 16 
1090 DRAW 10 AT X + 16 

Y - 8 

1100 RETURN 
1200 HCOLOR- 0: 
RETURN 

1300 HCOLOR- 3: 
RETURN 

1400 FOR I - 1 
TO 200: NEXT I 
1410 RETURN 
1500 X - 90:Y - 
50: RETURN 
1600 X - 160:Y - 
50: RETURN 
1700 X - 230 :Y - 



90: RETURN 

1800 X - 30 :Y - 90: RETURN 

2000 DATA 20 .0 ,42 ,0 .74 , 

,106 ,0 ,138 ,0 ,170 ,0 ,202 
,0 ,234 ,0 ,10 ,1 ,42 ,1 .74 .1 

,106 .1 , ,138 ,1 ,170 ,1 ,202 , 

1 ,234 ,1 ,10 ,2 ,42 ,2 ,74 ,2 
,106 ,2 ,138 ,2 

2010 DATA ,72 ,73 ,73 ,21 
8 ,219 ,219 ,74 ,73 .73 ,218 ,2 
19 ,219 ,74 ,73 .73 ,216 .219 , 
219 ,74 ,73 ,9 ,213 .223 ,219 , 
19 ,0 ,0 ,0 ,0 ,0 ,0 
2020 DATA ,72 .73 ,77 ,26 
,63 ,255 ,155 ,73 ,45 ,45 ,213 
.63 ,63 ,255 ,10 ,45 ,45 ,45 , 
213 ,59 ,63 ,63 .55 ,45 ,45 ,77 

.209 .63 ,63 ,63 ,23 
2030 DATA ,72 ,73 ,73 ,21 

8 ,219 ,219 ,74 ,73 ,73 .218 ,2 
19 ,219 ,74 ,73 ,73 ,218 ,219 , 
219 ,46 ,77 ,73 ,209 ,219 .59 , 
31 ,6 ,0 ,0 ,0 ,0 ,0 

2040 DATA ,8 ,109 ,73 ,20 

9 ,219 ,59 .63 ,46 ,109 ,73 ,20 
9 ,219 ,219 ,119 ,77 ,73 ,209 , 
219 ,27 ,159 ,73 .45 ,77 ,218 , 
219 ,219 ,2 ,0 ,0 ,0 ,0 

2050 DATA .72 ,73 ,73 ,21 
8 ,219 ,219 ,74 ,73 .73 .26 ,22 
3 ,219 ,83 ,73 ,9 ,173 ,27 ,255 
,219 ,74 ,73 ,105 ,218 ,219 .2 
19 ,2 ,0 ,0 ,0 ,0 ,0 
2060 DATA ,72 ,73 ,73 ,21 

8 ,219 ,219 ,74 .73 ,73 ,218 .2 
19 ,219 ,74 .73 ,73 ,26 ,223 ,2 
19 .83 ,73 ,9 ,173 ,59 ,255 ,21 

9 .2 .0 ,0 .0 .0 .0 

2070 DATA ,72 ,73 ,45 ,21 
3 ,63 .223 ,155 ,73 ,41 ,45 ,21 
3 ,59 ,63 ,223 ,74 ,109 ,109 ,2 
18 ,255 ,251 ,10 ,77 ,41 ,141 , 
27 ,255 ,27 ,23 ,0 ,0 ,0 
2080 DATA ,104 ,9 ,109 ,2 
09 ,219 ,251 ,51 ,77 ,77 ,137 , 
219 ,219 ,159 ,9 ,77 ,73 ,218 , 
219 ,255 ,74 ,77 .73 .218 .219 




,219 ,2 . ,0 ,0 .0 ,0 

2090 DATA ,72 ,9 .77 ,209 

,2? ,63 ,223 ,74 .41 .13 ,173 
,27 ,255 ,27 ,23 .45 .45 ,45 ,1 
73 ,27 .63 .63 ,63 ,46 ,45 .45 
.77 ,26 .223 ,63 ,63 
2100 DATA ' .40 .45 ,109 .1 
41 .219 .223 .63 ,78 ,73 ,73 ,2 
18 .219 ,219 .74 ,73 ,73 .218 . 
219 ,219 .74 ,73 ,73 ,218 ,219 
,219 .1 .0 ,0 ,0 ,0 ,0 

Use a barra de espaco para fazer o 
sapo pillar. 



Para definir e mover os desenhos das 
figuras 1 e 2, precisamos fazer tr&s coi- 
sas. Primeiro, criar na memoria do com- 
putadoruma "grade" ouquadriculado 
ortde possamos desenhar o que quiser- 
mos. Este quadriculado sera composto 
por caracteres de/inidos pelo usudrio. 
Segundo, trans ferir o padrao do dese- 
nho desejado — representado por nu- 
meros em linha DATA — para o qua- 
driculado, Terceiro, elaborar um pro- 
grama em BASIC que desenhe e movi- 
menie o tanque e o sapo. 

Um caractere definido pelo usuario 
(UDG) e um "quadro",dentro do qual 
se coloca parte de um desenho em alta 
resolucao. O quadro e composto por 64 
pontos dispostos num arranjo de 
oito por oito pontos. Cad a pon- 
to pode ser preto ou branco em 
PMODE 4,1 (este e o PMODE 
mais flexivel; em outros e 
precise definir dois ou qua- 
tro pontos de cada vez). 

Se colocarmos varies desses caracte- 
res Jado a lado, poderemos const ruir de- 
senhos maiores e mais detalhados. A di- 
ferenca de outros computadores, o TRS- 
Color nao possui UDGs embutidos. 
Mas porcoes de sua memoria se compor- 
tarao como tai, se fizermos um progra- 
ma para isto. 

Teoricamente, dispomos de espaco 
para criar muitos caracteres, mas seria 
trabalhoso usar varios deles, Na prati- 
ca, quatro ou cinco bastam. 



COMO CRIAR QUADRICULADO 



Para produzir o tanque da figura 1 , 
ou o sapo da figura 2, precisamos pri- 
meiro fazer com que urna porcao da me- 
m6ria se comporte como UDGs. Os dois 
desenhos requerem um quadriculado de 
tres por tres caracteres — 24 por 24 
pontos. 

Se usassemos o BASIC para desenhar 
uma figura destas, precisariamos de um 




III 



130 DATA 190.127.188,134,3,183, 

125.111.183,125,112.134,8,183,1 

25,113 

140 DATA 182.125,250.39,50,206, 

126,44,74,198,72,61,51,203,166. 

192 

150 DATA 167,132,48,136.32,122, 

125.113.38,244,134,8,183,125.11 

3,48 

160 DATA 137,255,1.122,125,111, 

38,230,134,3,183,125,111,48,137 

,0 

170 DATA 253,122.125.112,38,216 

,5 7,95,231,132,48,136,32,122.12 

5,113 

180 DATA 38,246,134,8,183,125,1 

13,48,137,255.1,122,125.111.38. 

232 

190 DATA 134,3.183,125,111,48.1 

37,0,25 3,122.125,112,38,218,57 

Este programa cria um outro, em lin- 
guagem de maquina. Sua gravacao deve 



ser feita pelo pr6prio programa; portan- 
to, tenha o gravador por perto — os pro- 
gramas aqui apresentados nao funcionam 
com o drive de disquetes conectado. 

Alem de produzir desenhos em alta 
resolucao numa velocidade muito maior, 
o programa em codigo ocupa bem me- 
nos memoria que uma rotina BASIC. 

Se voce conhece a linguagem de ma- 
quina do 6809, nao entendera o que os 
numeros nas linhas DATA significam, 
mas pode ter uma ideia de como funcio- 
na o programa em BASIC. 

A linha 10 reserva a memoria neces- 
saria para acomodar o programa em co- 
digo. As linhas 90 a 120 transferem o 
programa da memdria para a fita. 



UM TANQUE DE GUERRA 



Para desenhar o tanque sao necessa- 
rias duas figuras de tres por tres carac- 
teres — uma para o tanque apontando 
para a direita e outra para o tanque que 
aponta para a esquerda. 

Digite NEW para anular o programa 
antigo — o programa em codigo perma- 
necera na memoria. Este novo progra- 
ma cria o tanque mas, por enquanto, 
nao o desenha. 

10 CLEAR 200,32000 

20 FOR 1-32300 TO 32443 

30 READ N 

40 POKE I,N 

50 NEXT 

60 DATA 0,0,0,0,0,0,0,0.0,0,0,0 

,0,0,0,0,0,0,0,0,0,0.0.0 

70 DATA 0.0,3,7,127,127,7,0,0,0 

,128,252,255,255,255,0 

80 DATA 0,0,0.0,255,0.128,0.255 

,255,255,117,96,38.0,0 

90 DATA 255,255,255.215.130,102 

.0,0,252,254,255,94,12,96.0,0 

100 DATA 0,0,0,0,0,0,0,0.0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0 

110 DATA 0,0,0,0.255,0,1,0,0,0. 
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1,63.255.255.255.0 

120 DATA 0,0,192,224,254,254,22 

4,0,63,127,255.122.48.6,0,0 

130 DATA 255,255,255.235,65,102 

,0,0,255,255.255,174,6.100,0,0 

Para desenhar e mover o tanque, 
acrescente as pr6ximas linhas ao progra 
ma anterior: 

5 PCLEAR 5 
170 PMODE 4.1 
180 PCLS 
290 PCLS 

3 00 SCREEN 1.1 
310 T-l 
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340 POKt J2/U1.1P 256*1WI (TP/25 •— ^^^^^^™ 

6) 2. Desenho do sapo. A figura pula quando lie pressiona a tecla de espa^o. 

350 POKE 32250, T 

360 EXEC 32000 J6Q YP-INT { (TP-1536) /32) +8 70 P0KE 32701,135 

370 LP-TP 570 XP-8* (TP-1537- (YP-8) *32) 80 P0KE 32250,1 

380 IF PEEK (338) -251 THEN TP-TP 580 IF xp<0 THEN 620 90 EXEC 32000 

-32:GOTO 440 590 PUT CXP , YP) - (XP+7 . YP+7) , B 100 IF PEEK ( 345) <>247 THEN 100 

390 IF PEEK (342) -253 THEN TP-TP 600 F0R j.j T0 1Q0:NEXT 110 RESTORE 

+32:G0T0 440 610 PUT (XP , YP) - (XP+7 , YP+7) , C 120 FOR 1-1 TO 5 

400 IF PEEK (340) -247 THEN TP-TP 620 BETUBN 130 READ F FD 

-l:T-2:GOTO 440 140 POKE 32700 , INT (FP/256) 


410 IF PEEK (338) -247 THEN TP-TP 
+l:T*l:GOTO 440 


UM SAPO 


6) 


430 GOTO 380 

440 IF tp<1536 OR tp>6941 THEN A n gura 2 rnostra o desenho de urn 

tp-lp sapo. Depois que ele for transferido pa- 

470 goto 330 ra Q q ua d r iculado da mem6ria e puder 

j. -. wm.T»f j - ..»„i„„ ser controlado peio programa em BA- 
Agora djgne RUN; usando as tedas s J t P da B afora . 

P, LZe X, voce poderi mover c i tan- - ^ desenho dQ 

que. Estt deixar a urn rastro a ras de ri. qLadriculado> uti i ize programa a 

Para evuar o problems, digite. ^ Antes> ^^ ase <j^ EW para 

450 poke 32250.0 limpar a memoria ocupada pelo BASIC. 

460 EXEC 32000 „.__ ••««« 

10 CLEAR 200,32000 

Estas linhas usam o programa em c6- 20 for 1-32300 TO 32443 
digo para imprimir uma Figura compos- 30 READ N 
ta por caracteres em branco. 40 poke l,N:NEXT 


160 POKE 32250. F 

170 EXEC 32000 

180 FOR J-1 TO 70: NEXT 

190 POKE 32250,0 

200 EXEC 32000 

210 FP-FP+FD 

220 NEXT 

230 GOTO 80 

240 DATA 1,-287,2,-253.2.258,2 

291,1,0 

Os numeros da linha DATA no fina 
do programa fazem sapo descrever un 
arco quando pressionamos a barra de es 
pago. 


* 

] 
1 

i 
i 

1 


Para que q canhao atire, acrescente 60 data 0,0.0,0 0.0,0, o.o, o -^ 
, ^ «_| „ „„„,„„,,, v^. ,0.0,0.0,0.0.0.0,0,0,0.0 'fill 




mats algumas linhas ^ propama. Vc- ^ DAT ; , , . o , o . o , i . i . o . . o . o 

ce podera fazMo por meio da barra de . , 128 , m . 1 76 Q BAgIC do Mgx djspensa Q usQ d 

espa? °' so data 0.0,0.0,0.0,0,0.4.15,31 linguagern de maquina, pots dispoe d 
160 dim A{2),B(2).eC2) 9V i*?A It* ilo* 22? 192 64 32 15 comandos graficos poderosos e e sufi 
190 FOR 1-1536 TO 1760 step 32 « iJJ J oo 00 00 o cientemente rapido para cnar e movi 
190 FOR 1-1536 to 1760 step 32 r " DftT ^ £ o 6,0,0,0.0,0,0. mentar figuras em alta resolucao. 
200 read N o. 0, l, 3, 7, 8. 28 ! 27, 70 ! 255! 254! 25 O programa a seguir cria e movimen 
210 poke i.n 2,249 ta tanque da figura I . 
Hi GE? T (0.0)-C7,7),A !» DATA 0.0 0.0.0.0,0.7.7.15 , CLEW , 300:COLOR 12 , 15 , 12 

2IS IS, 1 ; 1 " 6 T0 176 ° 3TEP 32 »!'Sj"»S:;!6.d.o. 0,0, 0.0.0, \i j—v^is. " 

260 POKE !.■.■» ? 3 ' DATA^40°i44. 16 . 32 . 32. 46 , 32 J° Q j™ } ! * WW « MW 

"! ?F T PEEM3;5^247 B G0SUB 500 ^.0.0,0,0.0,0,0.0 5Q SSSiilSSSSf^^ 

480 data 0,32,144.64,13,64,144. p ar a fazer o sapo pular, digite NEW 60 *™"ES(l -mid|(AS.33,32) 

490 DATA 0,4.9.2.176.2.9.4 * OT "^ "* ^^ M SSSB") SlS (SiS \ "> 
500 IF T-2 THEN 560 10 PCLEAR 5 90 SPRITES (4) -MIDS (AS, 33 . 16) 
510 YP-INT((TP-1536)/32)+8 20 PMODE 4,1 100 SPRITES (5) -STRINGS (16. 0)+M 
520 XP-8*(TP-1533-{YP-8)*32) 30 PCLS DS (AS. 81, 16) 
530 IF XP>255 THEN 620 40 SCREEN 1,1 110 X-100 : Y-90 : F-2 
i 540 PUT (XP,YP)-(XP+7,YP+7).A 50 FP-4487 HI PUT SPRITE Q, (X-16, T) ,12,5 
■ s50 GOTO 600 60 POKE 32700,17 112 PUT SPRITE 1, (X+16, Y) ,12 , 3 






































































































14 CODIGODEMAQUINA 14 



120 KS"INKEYS:IF KS-"" THEN 120 

130 IF ASC(KS)-29 AKD X>0 THEN 

X-X-1:F-2;GOTO 200 

140 IF ASC(KS)-28 AND X<210 THE 

N X-X+1:F-1:GOTO 200 

150 IF ASC(KS)-30 AND Y>0 THEN 

Y-Y-l:GOTO 200 

160 IF ASC(KS>-31 AND ¥<160 THE 

N Y-Y+l:GOTO 200 

200 ON F GOSUB 500,600 

210 GOTO 120 

500 PUT SPRITE 0,(X,Y),12,0 

510 PUT SPRITE 1, (X+32.Y) ,12,4 

520 RETURN 

600 PUT SPRITE , (X~16, Y) . 12 , 5 

610 PUT SPRITE 1. (X+16.Y) ,12,3 

6 20 RETURN 

5000 DATA , , 3 , 7 , 127 
. 127 , 7 , , 255 , 255 , 255 

, 117 , 96 , 38 , O , , O , 
, 128 , 252 , 255 , 255 , 255 

, . 255 . 255 . 255 , 215 , 
130 . 102 , . 
5010 DATA , , , , 255 
, O . 128 . . 252 , 254 , 255 

, 94 . 12 , 96 , , , , 3 
2 , 144 . 64 , 13 . 64 , 144 . 
32, 0,0, 0,0. 0,0,0 

, o 

5020 DATA , 4 , 9 , 2 , 176 
,2,9,4,0,0,0,0,0 

,0,0,0,0,0,0,0, 
255 , . 1 . , 63 , 127 , 25 
5 , 122 , 4B , 6 , , 
5030 DATA . , 1 , 63 , 255 

, 255 . 255 , , 255 , 255 . 
255 , 235 , 65 . 102 ,0,0, 
. , 192 , 224 , 254 , 254 , 

224 , , 255 , 255 , 255 , 17 
4 , 6 , 100 , , 

A linha 5 estabelece as cores da tela 
— COLOR — e reserva espac/o na me- 
mo ria para acomodar o cordao AS, que 
e muito longo — CLEAR 300. 

A linha 10 seleciona a tela de 32 co- 
lunas, com sprites grandes e em baixa 
resolucao (32 por 32 pontes). Alem dis- 
so, desativa a impressao das teclas de 
funcao na parte inferior da tela. 

O FOR.. .NEXT das Iinhas20a40 le 
as linhas DATA do final do programa, 
onde esta definido o padrao do tanque. 
Estes valores sao transferidos para o 
cordao A$ (veja pagina 188). 

As iinhas 50 a 100 criam os sprites 
que montam o tanque. Observe que o 
cordao AS e "recortado" pelas funcoes 
MIDS e LEFTS. Os sprites criados sao: 
0, parte posterior do tanque da direita 
da figura 2; 1, parte dianteira atirando; 
2, parte dianteira do tanque da esquer- 
da atirando; 3, parte traseira. Os spri- 
tes 4 e 5 contem a parte dianteira do tan- 
que, cada uma apontada para um lado, 
sem o tiro. 

As linhas 110 a 112 desenfiam o tan- 
que em sua posicao inicial. As linhas 120 
a 160 mudam o valor de X e Y, con for- 
me a tecla do cursor pressionada, mo- 



vimenlando o tanque. As condicoes que 
se seguem a conjuncao AND evitam que 
o tanque ultrapasse os limttes da tela. F 
e um sinalizador da direcao em que o 
tanque aponta. 

A linha 200 utiliza F para decidir em 
que direcao desenhar o tanque. O dese- 
nho propriamente dito e feito pelas sub- 
rotinas 500 e 600. 

Note que os sprites da parte diantei- 
ra e traseira sao desenhados em niveis 
de prioridade diferentes. Se ambos esti- 
vessem no mesmo nivet, o segundo a ser 
desenhado faria o primeiro desaparecer. 
Esta mesma propriedade responde pelo 
desaparecimento do tanque de sua an- 
tiga posicao, quando a nova e desenha- 
da. 

As proximas linhas farao o tanque 
atirar ao toque da barra de espaco. 

170 IF ASC(KS)-32 THEN IF F-l T 
HEN F-3 ELSE F-4 
200 ON F GOSUB 500,600,700,800 
700 PUT SPRITE 0,(X,Y),12,0 
710 PUT SPRITE 1, (X+32.Y) ,12,1 
720 FOR 1-1 TO 50:NEXT 
730 F-F-2:GOSUB 500: RETURN 
800 PUT SPRITE 0, (X-16.Y) .12.2 
BIO PUT SPRITE 1, (X+16.Y) ,12,3 
820 FOR 1-1 TO 50: NEXT 
830 F-F-2:GOSUB 600: RETURN 

Para produzir o tiro, o programa usa 
o sinalizador F. Conforme se tenha pres- 
sionado a barra de espaco, tambdim sao 
utilizados os sprites 1 e2, corresponden- 
tes a parte dianteira dando tiro — nos 
dois sentidos. 

Se voce quiser sprites grandes em al- 
ta resolucao, faca as seguintes modifi- 
cagoes: 



10 SCREEN 1,2: KEY 

111 PUT SPRITE 0, 

112 PUT SPRITE 1, 
500 PUT SPRITE 0, 
510 PUT SPRITE 1, 
600 PUT SPRITE 0, 
610 PUT SPRITE 1, 
700 PUT SPRITE 0, 
710 PUT SPRITE 1, 
BOO PUT SPRITE 0, 
810 PUT SPRITE 1. 



OFF 

(X-8,Y),12,5 
(X+8.Y) ,12,3 
(X.Y) ,12,0 
(X+16.Y) ,12.4 
(X-8.Y) .12,5 
(X+8,Y) .12,3 
(X.Y), 12,0 
(X+16.Y) ,12,1 
{X-8.Y) ,12,2 
(X+8.Y) ,12,3 



UM SAP0 



O programa a seguir cria o sapo da 
figura 2 e o faz pular ao toque da barra 
de espaco. 

5 CLEAR 300:COLOR 12,15,12 

10 SCREEN 1,3: KEY OFF 

20 FOR 1-1 TO 12*8 

30 READ A:A$-A$+CHR$(A) 

40 NEXT I 

50 SPRITES (0)-LEFT$(A$, 32) 

60 SPRITES (1) -MIDS (A3, 33,32) 

70 SPRITES (2) -MIDS (AS, 65. 32) 

110 X-50:Y-12Q 



111 PUT SPRITE 0, (X.Y). 12,0 

120 K$-INKEY$:IF K$-"" THEN 120 

170 IF ASC(K$)-32 THEN GOSUB 50 



210 GOTO 120 

500 PUT SPRITE , (X+32 . Y-64) , 12 

.1 

510 PUT SPRITE 1, (X+16.Y-32) ,12 

.2 

520 FOR 1-1 TO 100:NEXT 

530 PUT SPRITE , (X+64. Y-64) , 12 

.1 

540 PUT SPRITE 1 , (X+48. Y-32) , 12 

.2 

550 FOR 1-1 TO 100:NEXT 

560 PUT SPRITE , (X+96, Y) , 12 , 

570 PUT SPRITE 1 , (X+48 . 209) , 12 , 

2 

580 X-X+96 

590 RETURN 

5000 DATA 0,0,0,0,0. 

, 1 , 1 , 4 , 15 , 31 , 63 . 
127 , 254 , 248 , 127 , , . 

, , , 128 , 192 , 176 , 
96 , 240 , 224 . 192 , 192 . 32 

, 28 , 
5010 DATA 0,0,0,0,0, 

1 , 3 , 7 , 7 , 7 . 15 . 30 . 5 
4 , 38 , 70 , 70 . 8 , 28 , 27 

. 70 , 255 . 254 , 252 , 249 , 
250 , 196 ,0,0,0,0,0, 


50 20 DATA 0,0,0,1,3, 
6,2,0,0,0,0,0,0, 

, , , 140 , 144 , 144 , 
32 , 32 . 48 , 32 , Q , , Q , 

0,0,0,0,0,0 

A preparacao do computador £ a 
criacao dos sprites a partir das linhas 
DATA sao muito parecidas com o pro- 
grama do tanque, so que o laco 
FOR... NEXT e mais curto. 

A diferenca e que nao precisamos 
mover o sapo, apenas fazS-Io saltar 
quando a tecla de espaco for pressiona- 
da. As linhas 120 e 170 detectam a ocor- 
rencia de pressao na tecla. 

A sub-rotina 500 e responsavel pela 
trajet6ria que o sapo descreve. Para en- 
tender como os sprites foram montados, 
use PUT SPRITE no modo imediato, 
ap6s ter parado o programa com 
<CNTRL> <STOP>. 

Para obter o mesmo efeito com spri- 
tes de alta resolucao, faca as seguintes 
modificacoes: 

10 SCREEN 1,2: KEY OFF 

500 PUT SPRITE , (X+16 , Y~32) . 12 

.1 

510 PUT SPRITE 1, (X+B.Y-16) ,12, 

2 

530 PUT SPRITE , (X+32 , Y-32) , 12 

,1 

540 PUT SPRITE 1, (X+24.Y-16) ,12 

,2 

560 PUT SPRITE 0, (X+48 , Y) , 12 , 

570 PUT SPRITE 1, (X+48 , 209) , 12 , 

2 

580 X-X+48 



14 PROGRAMACAODE JOGOS 



I I 



PROGRAMACAO 
PARA JOYSTICKS 



Os joysticks tornam seus jogos muito 
mais profissionais E nao se preocupe: 
voce nao precis? saber linguagem 
de maquina para utiliza-lo - 
o BASIC e suficiente. 



Os jogos vendidos no comercio e os 
produzidos em casa apresentam, em ge- 
lal, uma diferenca evidente: os primei- 
ros oferecem ao usuario a opeao de usar 
um joystick; os segundos, nao. Todavia, 
nao e necessarto mergulhar nas profun- 
dezas da programacao em c6digo para 
incluir este periferico nos programas de 
jogos. 

Voce vera neste artigo como utilizar 
um joystick em programas BASIC, tor- 
nando seus jogos mais profissionais e f 
sobreiudo, muito mais divertidos. 

Antes de fazer um programa que o 
inclua, e preciso obter um joystick com- 
pativel com o micro em questao. Os pro- 
gramas que-aqui apresentamos devem 
ser utilizados com o joystick padrao dis- 
pom'vel para cada computador. Obser- 
vacoes a respeito se encontram antes de 
cada programa. Mais informacoes sobre 
joysticks em geral podem ser obtidas no 
artigo da pagina 287. 



Existem varios tipos de joystick com- 
padveis com o Spectrum . Nao e possi- 
vel escrever um programa que funcione 
com todos eles, pois cada um tern sua 
pr6pria maneira de se comunicar com 
a maquina. Assim, optamos por um 
programa que funcione com o tipo mais 
comum de joystick: Atari. 



UMA ALCA DE MIRA ANIMADA 



A primeira parte ao programa permi- 
te a movimentacao de uma alca de mira 

na tela do Spectrum. 

100 BORDER 1: PAPER 1: INK 7: 

OVER 1: CLS : INK 8 

110 FOR n-USR "a" TO USR "h"+7 

: READ a: POKE n.a: NEXT n 

130 LET S-0: LET Jt-15: LET y- 

10 

140 PRINT OVER 1;AT y.XiCHRS 

148;CHRS 149;AT y+l.jt;CHR3 150 

;CBR$ 151 

200 GOSUB S00 

480 GOTO 200 

500 LET iS-INKEYS: IF iS""" 

THEN RETURN 

505 LET i-CODE i$ 

510 PHINT OVER 1 :AT y.x;CHRS 
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COMPATIBILIDADE 



DOS DIFERENTES TIPOS 



UMA ALCA DE MIRA ANIMADA 
TORNESEUSJOGOS 



DE JOYSTICKS 



COMO UTILIZAR JOYS TICKS 
EM PROGRAMAS BASIC 




MAIS PROFISSIONAIS 



UM TESTE PARA SEU 



JOYSTICK 



148;CHRS 149; AT y+l,x;CHRS 150 

;CHBS 151 

520 IF i-57 AND Y>1 THEN LET 

y-y-1 

530 IF i-56 AND y<20 THEN LET 

Y-y+1 

540 IF i-55 AND x<30 THEN LET 

x-x+1 

550 IF i-54 AND x>0 THEN LET 

x»x-l 

560 PRINT OVER 1;AT y.xjCHRS 

148;CHR5 149; AT y+1 , x ; CHRS 150 

;CHHS 151 

570 RETURN 
1000 DATA 14,27,127,31,15.7,15, 
31 

1010 DATA 0,0,0,0,0,192,112,188 
1020 DATA 31,29,30,15,3,1,1,3 
1030 DATA 206,30,124.248,224,64 
.64.224 

1040 DATA 12,12,12,12,252,252,0 
.0 

1050 DATA 48,48,48.48.63,63.0.0 
1060 DATA 0,0,252,252,12,12,12, 
12 
1070 DATA 0,0,63,63,48,48.48,48 

O programa comeca estabelecendo as 
cores do video. Em seguida, utilizando 
os valores das linhas DATA 1000 a 
1070, cria oito caracteres definidos pe- 
lo usuirio. O programs nao usa todos 
os caracteres, pois eles desenhani nao so 
a alca de mira, mas tambem um pato. 
Este sera utilizado pela parte resiante do 
programa, que apresentaremos num 
proximo artigo. 

Criados os caracteres, a linha 130 
acerta a posicao initial da mira na tela, 
Alem disso, zera o contador de pontes 
— ou escore — , que tambem aguarda 
a prdxima parte do programa para ser 
utilizado. 

A linha 140 usa o comando PRINT 
para colocar na tela a metade superior 
da mira, usando dois caracteres defini- 
dos pelo usuario. Depois, coioca a me- 
tade inferior, usando dois outros carac- 
teres. A alca de mira e controlada pela 
sub-rotina que comeca na linha 500, 
chamada linha 200. 

A sub-rotina que controla o joystick 
usa a funclo INKEYS para saber em 
que direcio o bastao esta virado. lsto e 
possivel porque o joystick en via carac- 
teres ao micro, como se fizesse parte do 
teclado. Os eddigos desses caracteres es- 
tao na figura 2. As quatro direcoes prin- 
cipals dao os valores 57, 56, 55 e 54. 
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1. A funcao STlCK(n) do MSX assume 
valorem diferentes conforme a direcao 
dada pelo bastao do joystick. 

A primeira linha da sub-rotina — li- 
nha 500 — verifica se o joystick esta na 
posicao central, Nenhum caractere sera 
enviado se o bastao ocupar esta posigao. 
Em seguida, a linha 505 guarda o codi- 
go do caractere na variavel i, usando a 
funcao CODE. 

A linha 5 10 apaga a mira, pois e a se- 
gunda vez que PRINT OVER 1 foi usa- 
do (a primeira foi na linha 140). OVER 
1 faz com que o grafico impresso na pri- 
meira vez desapareca quando e" usado 
pela segunda vez. 

Agora que a posicao antiga foi apa- 
gada, a nova pode set calculada. Ela vai 
depender da direcao em que o bastao do 
joystick for empurrado pelo jogador. A 
linha 520 percebe o movimento para ci- 
ma; a linha 530 percebe os movimentos 
para baixo; e as linhas 540 e 550 perce- 
bem os movimentos laterals. 

A sub-rotina termina colocando a al- 
ga de mira em sua nova posicao. Obser- 
ve que, como e a primeira vez que a fi- 
gura e desenhada nesta posicao, ela apa- 
rece normalmente. 

Para permitir um movimento conti- 
nuo da mira, a linha 480 traz um GO- 
TO 200, fazendo com que a sub-rotina 
do joystick seja charnada repetidamen- 
te. 



Como o ZX-81 nao permite a movi- 
mentagao de figuras usando s<5 o BA- 
SIC, a mira desenhada pelo programa 
a seguir e apenas um ponto grafico (um 
quarto de caractere). 

O programa deve ser utilizado com 
o joystick do TK-85 da Microdigital. 

350 10 LET X-32 



57 



54 




55 



56 




2. O joystick do Atari envis caracteres 
ao Spectrum. Os codigos mudam conforme 
a direcao. 

20 LET Y-20 

30 GOTO 170 

40 LET LX-X 

50 LET LY-Y 
100 LET AS-INKEYS 
110 IF AS-"" THEN GOTO 100 
115 LET A-CODE AS 
120 IF A-33 AND X>0 THEN LET X- 
X-l 

130 IF A-36 AND X<63 THEN LET X 
-X+l 

140 IF A-34 AND Y>0 THEN LET Y- 
Y-l 

150 IF A-35 AND Y<40 THEN LET Y 
-Y+l 

160 UNPLOT LX.LY 
170 PLOT X,Y 
180 GOTO 40 

As linhas 10 e 20 armazenam a posi- 
cao central da tela grafica emXeV. A 
linha 30 desvia o programa para a linha 
170, para que o primeiro ponto seja im- 
presso. Se ela for suprimida, o primei- 
ro ponto s<5 aparecera ap6s algum mo- 
vimento do joystick. 

As linhas 40 e 50 guardam os ultimos 
valores assumidos por X e V em LX e 
LY, para que o programa saiba onde 
apagar a ultima posicao do ponto. 

As linhas de 100 a 150 controlam o 
joystick. A linha 100 promove uma 
'*varredura" do teclado. Isto e necessa- 
rio porque o joystick envia caracteres ao 
micro, como se fizesse parte do teclado. 
A linha 1 10 repete a linha 100 ate que 
algum movimento seja feito no joystick. 
Ao ocorrer o movimento, a linha 115 
guarda o c6digo do caractere enviado na 
variavel A, usando CODE. 

Os cddigos dos caracteres enviados 
pelo joystick sao 35 (para cima), 34 (pa- 
ra baixo), 33 (esquerda) e 36 (direita) 
(veja a figura 3). As linhas 150, 140, 120 
e 130 detectam, respect ivamente, estes 
movimentos. As condicSes sobre X e Y, 



35 



33 




36 



34 




3. Estes sao os codigos dos caracteres 
enviados ao computador pelo 
joystick do TK-85. 

que se seguem a conjuncao AND nes- 
tas mesmas linhas, evitam que o ponto 
ultrapasse os limites da tela. 

Finahnente, a linha 160 apaga o pon- 
to de sua ultima posigao, usando UN- 
PLOT, e a linha 170 coloca-o em sua 
nova posicao com PLOT. A linha 180 
volta ao principio. 



O MSX tem uma funcao especial — 
STICK (N) — , que facilita muito o con- 
trole de joysticks por programas em BA- 
SIC. Alem disso, essa funcao permite 
que nosso programa seja utilizado mes- 
mo por quern nao possui um joystick. 



COMO MOVER SPRITES COM JOYSTICK 



O programa a seguir foi feito para 
funcionar com o joystick do HOTB1T 
conectado a tomada frontal direita. 

10 SCREEN 1,2: KEY OFF 

20 FOR 1-1 TO 32 

30 READ A:AS-AS+CHRS(A) 

40 NEXT I 

50 SPRITES (0) -AS 

60 PUT SPRITE 0, (1I5.B5) .15 

170 X-115:Y-85 

200 GOSUB 1000 

210 GOTO 200 

1000 A-STICK(l) 

1010 ON A GOTO 1030,1040,1050,1 

060 , 10 70 , 1080, 1090 , 1100 

1020 RETURN 

1030 Y-Y-l:GOTO 1110 

1040 X-X+l:Y-Y-l:GOTO 1110 

1050 X-X+l:GOTO 1110 

1060 X-X+l:Y-Y+l:GOTO 1110 

1070 Y-Y+l:GOTO 1110 

1080 X-X-l:Y-Y+l:GOTO 1110 
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113 




4. Cads direcao corresponde a urn 
caractere no joystick do TK-20O0, 
Estes sao seus codigos. 

1090 X-X-l:GOT0 1110 
1100 X-X-l:Y-Y-l:GQTO 1110 
1110 PUT SPHITE 0.(X.Y),15 
1120 RETURN 



5000 DATA 3 
2 , 64 , 64 
2 , 32 , 16 
, 152 , 132 

129 , 255 , 
130 , 132 



12 
, 127 
. 12 , 
, 130 
129 , 
152 , 



. 16 , 
, 64 , 

3 , 
, 130 

129 , 
224 , ( 



32 , : 

64 , : 

, 224 
129 , 
130 , 



A linha 10 ativa a tela de 32 colunas, 
com sprites grandes em alta resolugao 
— SCREEN 1,2. Alem disso, impede 
que o conteudo das feclas de funcao se- 
ja impresso na parte inferior da tela, 
usando KEY OFF. 

As linhas 20 a 50 criam urn sprite 
grande — dezesseis por dezesseis — pa- 
ra a alca de mira. Os numeros que defi- 
nem o padrao do sprite sao lidos na li- 
nha 5000 (veja pagina 188). A mira e en- 
tao desenhada em sua posicao micial pe- 
la linha 60. A tinha 1 70 guarda esta po- 
sigao em X e V. 

A linha 200 chama a sub-rotina de 
controle do joystick, que movimentara 
o sprite uma vez. A linha 210 faz com 
que o processo se repita, possibilitando 
o movimento continue. 

As linhas 1000 a 1120 controlam o 
joystick, por rneio da funcao especial 
STICK (1). Esta assume diferentes ya- 
lores, conforme a posicao do joystick 
niimero 1 (veja a figura 1). STICK (2) 
e usada com o joystick 2; STICK (0> 
possibilita a substituicao do joystick pe- 
las teclas do cursor. 

A linha 1000 armazena o valor cor- 
respondenle a posicao do joystick em A. 
A linha 1010 usa ON A GOTO para des- 
viar o programa conforme o valor de A 
(veja pagina 76). Isto pode ser feito por- 
que os numeros que o joystick envia sao: 
0, em repouso; 1, norte; 2, nordeste; 3, 




S. O joystick do TRS-Color v anaJ6gico; 
cad a u m dos seus dois potenc id metres 
fornece urn valor entre e 63. 




6. A leitura do joystick analogico do 
Apple s6 pode ser feita por urn programa 
em linguagem de maquina. 



leste; 4, sudeste; 5, sul; 6, sudoeste; 7, 
oeste e 8, noroeste. As linhas para onde 
o programa e desviado calculam os no- 
vos valores de X e V — linhas 1030 a 
1 100. Quando A e igual a zero, o pro- 
grama vai para a linha 1020. 

Depois que a nova posicao foi calcu- 
lada, a linha 1 1 10 desenha o sprite ne- 
ta. A linha 1120 provoca o retorno da 
sub-rotina. 



Por meio do comando PDL (paddle 
— cm ingles, raquete) controla-se ade- 
quadamente o joystick do Apple. Este 
micro possui uma entrada de joystick 
que, na verdade, € uma tomada, onde 
quase todo tipo de aparelho ana!6gico 
ou digital pode ser conectado sem maio- 
rcs dificuldades, 

O programa a seguir foi feito total- 
mente em BASIC; por isso, nao controla 
muito bem o joystick analbgico. 




DESCUBRA OS CODIGOS 



Se seu joystick e de outra marca, 
experimente este pequeno programa 
para descobrir quais sao os c6digos dos 
caracteres enviados por ele. 

Caso voce tenha um Apple, nao uti- 
lize nervhum programa. Pode ser que 
seu joystick utilize outro byte analOgi- 
co. Existem quatro desses bytes, en- 
derepos -16284 a -16281 . Tenteto- 
das as combinagoes possiveis nas li- 
nhas 510 e 520. 



10 LET A$ - INKEYS 

20 IF AS - "" THEN GOTO 10 

30 PRINT CODE AS 

40 GOTO 10 



Vfi 



Conecte o joystick na tomada direi- 
ta do HOTBIT. Se nao funcionar no seu 
MSX, troque a tomada ou substitua o 
numero 1 por 2 na funcao STICK: 

10 PRINTSTICKCl) : :G0T0 10 



2 



10 GET AS 

20 PRINT ASC(AS) 

30 GOTO 10 



10 
20 



* 3 



HOME :E - 35000: HIMEMt E 
F - INT (E / 256) : POKE 232 
,E - F * 256: POKE 233, F 
30 FOR I-ETOE+41+5 
2 

40 
50 
60 



POKE I. A 



1: P.OT- OiX 



READ A 

NEXT 

HGP. : SCALE 
130:Y = 90 
200 GOSUB 500 
210 GOTO 200 
500 IX - X:LY - Y 
510 A - PDL CD :B - PDL (0) 
530 IF A - AND Y > 8 THEN Y 
= Y - 8: GOTO 580 
540 IF A - 255 AND Y C 144 THE 
N Y - Y + 8 : GOTO 580 
550 IF B • AND X > 8 THEN X 
- X - 8: GOTO 580 
560 IF B - 255 AND X < 266 THE 
N X = X + 8: GOTO 580 
580 HCOLOH- 
590 DRAW 5 AT LX t LY 
600 HCOLOR- 3 
610 DRAW 5 AT X,Y 
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Podemos usar joysticks nos outros 

programas de jogos ja publtcados am 
INPUT? 

A parte principal do programa forne- 
cido neste artigo pode ser adicionada 
a maioria dos programas que usam 
GET$ ou INKEY$ para "ler" o teclado. 
Assim, voce" podera aperfeicoar seus jo- 
gos, pois e muito mats convenient^ e 
divertido usar joysticks do que teclado. 

As linhas importantes destes pro- 
gramas sio: para o Spectrum, linhas 
520 a 550; para o ZX81, linhas 100 a 
1 50; para oMSX, linhas 1000 a 1120; 
para o TK-2000 e Apple, linhas 500 a 
530; e para o TRS-Color, as linhas 
1000 a 1070, chamadas como sub- 
rotina lalguns valores terao que ser mo- 
dtficados, conforms o tamanho da fi- 
gura). 



620 RETURN 

2000 DATA 20 ,0 ,42 ,0 ,74 ,0 

.106 .0 .138 ,0 .170 ,0 .202 . 
,234 .0 .10 ,1 .42 ,1 ,74 .1 
.106 ,1 ,138 .1 ,170 .1 ,202 .1 

.234 .1 ,10 ,2 ,42 ,2 ,74 ,2 , 
106 ,2 .138 .2 

2010 DATA ,72 ,9 ,45 ,141 
,59 .31 ,255 ,83 ,45 ,45 .45 .2 
13 ,63 ,63 ,223 .74 ,9 ,45 ,173 

,59 ,255 ,219 ,74 ,9 .45 ,173 
,59 ,63 ,255 ,19 .0 
2020 DATA ,72 ,41 ,45 ,173 

,251 .63 ,223 ,74 ,41 .45 .141 

,59 ,63 ,223 .83 .73 .73 ,213 
,219 ,219 ,83 ,73 ,73 .209 .255 

.219 .19 ,0 ,0 .0 ,0 
2030 DATA .72 ,73 ,73 ,218 

,219 ,219 .74 ,73 ,73 .218 .21 
9 ,219 ,74 .73 .73 .218 ,219 ,2 
7 ,119 .45 ,77 ,137 ,219 .63 ,2 
55 .6 .0 .0 ,0 ,0 ,0 
2040 DATA ,40 ,77 ,45 .141 

,27 ,63 ,255 .83 .45 .45 ,77 , 
218 .27 ,63 .63 .46 ,109 ,73 ,2 
09 .219 .27 ,31 .110 .77 ,73 ,2 
18 ,219 ,63 ,55 ,0 ,0 
2050 DATA ,72 .73 ,73 ,218 

,27 ,223 ,83 ,73 ,77 ,209 ,219 

.223 ,83 ,45 ,45 ,45 ,213 .219 

,223 ,83 .73 ,77 ,209 ,219 ,22 
3 ,19 ,0 ,0 ,0 ,0 ,0 

As linhas 10 a 50 criam uma tabela 
de figuras a partir das linhas DATA cal- 
culadas com o editor da pagina 316. 

A linha 60 estabelece as condicdes ini- 
ciais de posieao, cor e escala na tela gra- 
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fica. 



A sub-rotina 500 controls o joystick . 
A linha 210 chama repetidarnente a sub- 
rotina, possibilitando um movimento 
continuo. 

As linhas 510 e 520 leent o status dos 
dois paddles conectados ao joystick, por 
meio dos comandos PDL(O) e PDL<1). 

As linhas 530 a 560 deslocam a mira 
continuamente para a esquerda e para 
cima, a nicnos que um movimento para 
baixo ou para a direita seja execulado. 
Isto e o maximo que se pode fazcr utili- 
zando apenas o BASIC. 

As condicdes que se seguem as eon- 
juncocs AND evitam que a mira ultra- 
passe os limit es da tela. 

As linhas 580 e 590 apagam a mira 
de sua ultima posieao; as linhas 600 e 
610 refazem o desenho na nova. 

A labela de figuras criada a partir das 
linhas DATA inelui um palo, alcm da 
mira. Ele sera utilizado num proximo 
artigo. 



O programa anterior nao funciona- 
ra no TK-2000. Faca as rnodificacoes in- 
dicadas a seguir e use o joystick da Mi- 
crodigital ou as setas do teclado. 

510 GET A$ 

520 A - ASC (A$) 

530 IF A - 112 AND Y > 8 THEN 

Y - Y - 8: GOTO 570 

540 IF A - 113 AND Y < 144 THE 

N ¥ - Y + 8: GOTO 570 

550 IF A - 8 AND X > 8 THEN X 

- X - 8: GOTO 570 

560 IF A - 21 AND X < 266 THEN 

X - X + 8: GOTO 570 
570 HEM 

O joystick envia caracteres ao micro, 
como se fizesse parte de seu teclado: as- 
sim, a linha 510 utiliza GET$ AS para 
obter a nova posieao do joystick- A li- 
nha 120 guarda o codigo do caractere 
enviado em A. 

Os c6digos eorrespondentes aos mo- 
vimentos do joystick estao na figura 4. 
Esses codigos sao os mesmos das setas 
do teclado, motivo pelo qual nao e ne- 
cessario dispor de um joystick para usar 
o programa. 

A linha 530 detecta o movimento pa- 
ra cima; a 540, para baixo; a 550 para 
a esquerda e a 560 para a direita. As 
condicoes que se seguem a conjuncao 
AND nestas linhas evttam que a mira ul- 
trapasse os limites da tela. 

As operacoes ap6s THEN calculam 
as novas coordenadas. 

Note que o joystick do TK-2000 nao 
i auto-repetitivo. A tecla REPEAT con- 
torrta parcialmente o problema. 



O TRS-Colbr tcm uma fungao em 
BASIC para controlar o joystick — 
JOYSTK — que facilita muito em- 
prego deste periferico. O computador 
admite a uiili/acao de dois joysticks, 
mas o programa abaixo so usa um. 

Ames de passar ao programa, conec- 
te seu joystick na tomada traseira mar- 
cada com JOY-DIR. O programa nao 
funcionara se o drive de disquetes esti- 
ver conectado. 



UMA ALCA DE MIRA ANIMADA 






Digite a primeira secao do programa 
e depois rode-a. Voce* vera uma alga i " 
mira surgir na tela. 

10 PMODE 3.1 

20 FOR K-1536 TO 1868 STEP 

30 FOR J-0 TO 2 

40 READ A: POKE K+J.A 

50 NEXT J.K 

160 SCREEN 1 ,0 

170 GOTO 170 

4000 DATA 252.15.192,192,0.192, 

48,3.0,12.12,0,3.48,0 

4010 DATA 0,0,0,3,48,0,12,12,0, 

48 . 3 , . 192 , , 1 92 , 251 , 15 , 192 






Esta parte do programa e bem sim- 
ples. As linhas 20 e 50 usam POKE para 
colocar a mira na tela, com os vaJores da- 
dos pelas linhas DATA 4000 e 4010. 

A linha 160 ativa a tela de alta reso- 
lucao, A linha 170 e temporaria e serve 
para manter a tela grafica ligada. 

Depois de digitar a segunda parte do 
programa, voce podera movimentar a 
mira pela tela usando o joystick. 

60 DIM 8(5) ,B(5) ,D(4) ,H(4) 

70 GET (0,0)-(17.11) ,S,G 

130 PCLS 

140 LINE(0,0>- C255.191) ,PSET,I 

170 X-12?:Y-95 

200 GOSUB 1000 

210 GOTO 200 

1000 J0-JOYSTKC0) :J1-J0YSTK(1) 

1010 IF J0>58 THEN JO-58 

1020 IF Jl>59 THEN Jl-59 

1030 IF X-J0*4+10 AND Y-Jl*3+6 

THEN 1070 

1040 PUT(X-8,Y-5)-(X+9.Y+5).B,P 

SET 

1050 X-JO*4+10:Y-Jl*3+6 

1060 PUT (X-8,Y-5)-(X+9,Y+5) ,3, 

OB 

1070 RETURN 

Embora o programa empregue ape- 
nas duas matrizes para armazenar dese- 
nhos, a linha 60 dimensiona quatro de- 
las — duas para uso future A linha 70, 
com GET, armazena o desenho da mi- 
ra na matriz S. Esta matriz e usada jun- 
tamente com a matriz B — em branco 



— para animar o desenho. 

A linha 130 limpa a tela para que, 
quando ela for ligada, o desenho origi- 
nal da mira nao apareca. A linha I40de- 
senha uma moldura para tornar o jogo 
mais bonito, 

Ames da sub-rotina de controle do 
joystick ser chamada pelo GOSUB da 
linha 200, a posicao inicial da mira e 
acertada pelos valores de X e Y da li- 
nha 170, 

Trataremos agora da parte mais im- 
portante do programa: a sub-rotina que 
faz com que a posicao da mira na tela 




Dependendo do computadur, pode-se crlar 
uma alca de mira anirnada a partir de 
canctetcs definidos pelo usuario, 
dos caracleres grificos da ROM ou mesmo 
do conjunto de caracteres padrio. 



corresponda a posicao do joystick. Ela 
vai da linha 1000 a linha 1070. 

A linha 1000 usa a funcao JOYSTK, 
JOYSTK (0) verifica a posicao horizon- 
tal do joystick direitc, enquanto 
JOYSTK (1) verifica a posicao vertical 
do mesmo joystick. JOYSTK (2) e 
JOYSTK (3) fazem o mesmo para o 
joystick esquerdo. 

Cada uma destas quatro funcoes po- 
de assumir um valor que vai de a 63, 
de acordo com a posicao dos joysticks. 

Na sub-rotina, a linha 1000 usa as va- 
riaveis J1 e JO para armazenar o valor 
de JOYSTK (1) e JOYSTK (0): assim, 
nao e preciso escrever o nome todo da 
fungao ao longo do programa. Este pro- 
cedimento 6 bem comum, Em INPUT, 
utilizamos K$ para armazenar o valor 
de INKEYS, por exemplo. 

As linhas 1010 a 1020 impedem que 
a mira saia fora dos Umites da tela, le- 
vando em conta o tamanho do desenho. 

As linhas 1040 a 1060 sao responsa- 
veis pela animacao. Primeiro, apagam 
a mira da sua ultima posicao; depois, 
calcuiam a nova posicao e nela situam 
a mira, usando PUT. 

A linha 1 040 apaga o desenho em sua 
ultima posicao colocando a matriz em 
branco B, com PUT. A nova posicao e 
calculada a partir de JI e JO (veja a li- 
nha 1050). X e Y sao as novas coorde- 
nadas do centro da mira. Observe que, 
enquanto JO e" multiplicado por 4, Jl e 
multiplicado por 3. Esses fatores de 
multiplicacao sao determinados pela re- 
solucao da tela que se utilizou. No nos- 
so caso, ela e de a 255 pontos na hori- 
zontal, e de 0a 190 na vertical. Quando 
multiplicamos os valores dos JOYSTK, 
estamos adaptando o interval© de a 63 
do joystick aos intervalos de a 255 e 
a 191 da tela, Esses valores sao os mes- 
mos para qualquer PMODE. Voce so 
precisara allera-los se quiser considerar 
o tamanho de outra figura que estiver 
utilizando. O uso de fatores menores 
deixa mais espaco para movimentar fi- 
gures grandes. 

Calculada a nova posicao da mira, a 

linha 1060 coloca o desenho na tela. 

usando PUT. ..OR para nao prejudicar 

! o que estiver desenhado naquelas posi- 

coes. 

A sub-rotina funcionara como ja foi 
explicado ap6s a adicao do RETURN da 
linha 1070. Se o joystick nao mudasse 
t de posicoes, a mira ficaria piscando na 
I tela, uma vez que estaria sendo constan- 
temente apagada e desenhada de novo. 
Para evitar que isso ocorra, a linha 1 030 
verifica se a posicao mudou. Caso o 
joystick nao tenha se movido, o progra- 
ma continua na linha 1070, evitando as 
linhas de animacao. 
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QUINTI 
US DESEN 




Ja aprendemos a usar funcoes 
matematicas para fazer graficos 
circulares. Veremos agora como 
empregar SIN e COS na elaboracao 
de desenhos mais sofisticados. 



Em artigo anterior, na pagina 334, vi- 
mos algumas das funcoes matematicas 
existentes nos eomputadores, bem como 
sua utilidade enquanto ferramentas gra- 
ficas. Agora, examinaremos mais de 
perto sua aiuacao e indicaremos outros 
usos para elas. 

As funcoes que nos interessam no 
momento sao o seno e o cosseno; caso 
ainda nao esteja familiarizado com elas, 
aconselhamos consultar o artigo citado. 
Nele, voce vera como estas funcoes es- 
tao reiacionadas com a posieao de um 
ponto ao redor de urn circulo, e como 
usa-las para caicular as coordenadas de 
qualquer ponto. O programa da biisso- 
la, no artigo da pagina 334, utiliza o se- 
no e o cosseno para posicionar as mar- 
cacoes de rnimero em seus devidos lu- 
gares, ao redor da bussola. 



COMO DESENHAR UM flELOGIO 



Os programas apresentados ate ago- 
ra nao tern muita utilidade pratica. Po- 
rem, como veremos detalhadamente nos 
proximos artigos, as fungdes trigonome- 
tricas oferecem variadas possibilidades 
de uso. Por enquanto, vamos nos con- 
eentrar no desenho de um relogio. Vo- 
ce ja deve ter pelo menos uma ideia de 
como fazS-lo, com base ho primeiro ar- 
tigo da serie. 

O princfpto e o mesmo que orientou 
o desenho da bussola, com uma diferen- 
ca: em vez de fornecermos um angulo, 
o computador precisara selecionar sozi- 
nho os singula s a serem mostrados, 
aumentando-os com o tempo. 

Os programas a seguir calculam as 
posicoes dos ponteiros, usando SIN e 
COS, para que mostrem a hora certa. 

Em bora seja facil montar um relogio 
de doze horas, este programa desenha 
um re!6gio de 24 horas, com numeracao 
de 1 a 24 era seu mostrador. Dessa ma- 
neira, poderemos examinar melhor as 
rotinas que imprimem os numeros. De- 
pois de digitar e rodar o programa, ve- 
remos o que SIN e COS fazem exata- 
mente. 

No programa da bussola, os nume- 
ros ao redor do aparetho marcavam os 
variosgraus; no re!6gio, marcam as ho 
ras. Os numeros de 1 a 24 sao selecio 




FA CA UM RELQGIO MECANICO 
COMO POSICIONAR 



OS NUMEROS 



DESENHE OS PONTEIROS 



ACRESCENTE UM ALARME 



_ COMO ADICIQNAR 
NUMEROS ROMANOS 



DESENHOS A8STRATOS 



USO DE SIN E COS EM 



DESEMHOS MAIS ELABORADOS 
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nados por um laco FOR... NEXT e im- 
presses na tela em coordenadas deter- 
minadas por SIN e COS. 

Parte do programa para o TRS- 
Color e o MSX parecerio (atniliares 
a quem usou a rotina para desenhar ca- 
racteres na tela de alt a resolucao, da da 
no artigo da pagina 232. Repetimos es- 
ta rotina no programa dado a seguir 
porque o computador nao imprime ca- 
racteres na tela em PMODE 4 ou 
SCREEN 2 e 3, raas com ela podemos 
colocar os numeros ao redor do marca- 
dor do relogio. 

Se vocS salvou a rotina citada, carre- 
gue-a no seu computador para nao pre- 
cisar digita-la novamente, Depois, acres- 
cente essas linhas ao programa abaixo. 

A rnesma rotina tambem serve para 
colocar numeros no programa da bus- 
sola visto anteriormente; basta adapta- 
lo para isso. Quando o marcador e de- 
senhado, o computador automaticamen- 
te desenha o ponteiro de segundos do re- 
ibgio; este funciona como o ponteiro de 
segundos de um relogio real. O angulo 
inicial, no topo do circulo, e de graus, 
e aumenta gradualmente ate chegar nos 
360 graus, novamente no topo. A velo- 
cidade do ponteiro de segundos e deter- 
minada por um comando PAUSE ou pe- 
lo temporizador no computador. 

Os ponteiros do reI6gio sao movi- 
mentados por meio de um laco 
FOR... NEXT, no Spectrum. O progra- 
ma do TRS-Color usa urna variavel 
que e atualizada pelo temporizador ca- 
da vez que se roda o programa (este e 
um laco continuo). O ponteiro de segun- 
dos movimenta-se sempre que a varia- 
vel acusa que ja se passou um segundo. 



90 PLOT 134,92: DRAW OVER 1; 
9X.9Y ^W 
100 NEXT t X X 



/ 






5 CIRCLE 134,92,70 

6 LET q — 1 
10 FOR n-1 TO 24 

20 PRINT AT 10-10*COS (n/12* 

PI) ,16+10*SIN (n/12*PI) ;n 

30 NEXT n 

40 FOR t-0 TO 20000 

50 LET a-t/30*FI 

60 LET 3Jt-65*SIN a; LET ay-65 

*COS a \f 

70 PLOT 134.92: DRAW OVER 

ax, ay 

80 PAUSE 42 



\ 



1; 



■ ■ 



A 



10 PMOOE 

20 DIM LESC26) 

30 PCLS 

40 FOR K-0 TO 26:READ LES(K):NE 

XT 

SO FOR K-0 TO 9:READ NU${K):NEX 

T 

60 DATA BR2,ND4R3D2NL3ND2BE2.ND 

4R3DGNL2FDNL3BU4BR2,NR3D4R3BU4B 

R2 .ND4R2FD2GL2BE4BR .NR3D2NR2D2R 

3BU4BR2 

70 DATA NR3D2NR2D2BE4BR,NR3D4R3 

U2LBE2BR . D4BR3U2NL3U2BR2 , ND4BR2 

,BD4REU3L2R3BR2,D2ND2NF2E2BR2 

80 DATA D4R3BU4BR2.ND4FREND4BR2 

, ND4F3DU4BR2 . NR3D4R3U4BR2 , ND4R3 

D2NL3BE2,NR3D4R3NHU4BR2 

90 DATA ND4R3D2L2F2BU4BR2.BD4R3 

U2L3U2R3BR2 , RND4RBR2 , D4R2U4BR2 , 

D3FEU3BR2 , D4EFU4BR2 

100 DATA DF2DBL2UE2UBR2.DFND2EU 

BR2 , R3G3DR3BU4BR2 

110 DATA NR2D4R2U4BR2.BDEND4BR2 

, R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2R 

2U4BR2,D2R2D2U4BR2,NR2D2R2D2L2B 

E4 , D4R2U2L2BE2BR2 , R2ND4BR2 , NR2D 

4R2U2NL2U2BR2.NR2D2R2D2U4BR2 

200 MX-127:SX-127;MY=95:SY-95 

210 SCREEN 1,1 

220 CIRCLE (127,95) ,60,1 

230 PI«ATN(1)/15 

240 FOR K-5 TO 120 STEP 5 

250 LINEU27+55*SIN(K*PI) ,95-55 

*COS{K*PI))-(127+59*SIN(K*PI) ,9 

5-59*C0S (K*PI) ) , PSET 

260 AS-MIDStSTRSCK/5) ,2) rDRAWB 

M-+STR3 (INT(123+68*SIN(K*PI)) ) + 

" , "+STR$(INT(92-68*COS(K*PI}) ) + 

"C5S6":GOSUB 1000 

270 NEXT K 

280 IF TIMER<50 THEN 280 

290 TIMER"0:T-T+1 

300 IF T=86400 THEN T-0 

310 H-T/3600 

320 M-T/60-INT(H)*60 

330 S«T-INT(M)*60-INT(H)*3600 

340 LX-SX:LY-SY 

350 SX=127+45*SIN(S*PI*2) :SY-95 

-45*003 (S*PI*2) 

360 LINE(127,95)-(SX,SY) , P3ET 

370 LINE (127, 95) -(LX.Llf) .PRESET 

380 LINE (127, 95) -(MX, MY) .PRESET 

390 MX-12?+30*SIN(M*FI*2) :MY-95 

-30*COS(M*PI*2) 

400 LINE U27, 95) -(MX, MY) , PSET 



\ 



PROGRAMACAO BASIC 25 







410 LINEU27,95)-(HX,HY) , PRESET 

420 HX-12?+20*SIN(H*PI*5) : HY-95 

-2Q*COS(fl*PI*5) \ 

430 LrNE(127,95)-(BX,HY) , PSET 

440 GOTO 280 

1000 FOR M-l TO LEN<AS) 

1010 BS=HIDS(A3.M.l) \ 

1020 IF B3>-"0" AND BSO"9" THE 

N DRAW NUS(VAUBS)) :GOTO 1050 

1030 IF B8-"* THEN N-0 ELSE N-A 

SC(B9J-64 ^r 

1040 DRAW LES IN) 



/ 



1050 NEXT 
1060 RETURN 



w 



20 
30 
40 
XT 

50 
T 



DIM 
CLS 
FOR 



\ 



LES (26) 

K-0 TO 26:BEAD LE$(K):NE 



FOR K-0 TO 9:HEAD NU${K):NEX 



60 DATA BR2,ND4R3D2WL3ND2BE2,ND 
4R3DGNL2FDNL3BU4BR2 , NR3D4R3BU4B 
R2 . ND4R2FD2GL2BE4BR , NR3D2NR2D2R 
3BU4BR2 

70 DATA NR3D2NP,2D2BE4BR,NR3D4R3 
U2LBE2BR . D4BR3U2NL3U2BR2 .ND4BR2 
. BD4REU3L2B 3BR2 , D2ND2NF2E2BR2 
80 DATA D4R3BU4BR2.ND4FREND4BR2 
. ND4F3DU4BR2 , NR3D4R3U4BR2 , ND4H3 
D2NL3BE2,NR3D4R3NHU4BR2 
90 DATA ND4H3D2L2F2BU4BR2 , BD4R 
(2L3U2R3BR2 , RND4RBR2 , D4R2U4BR2 




25 PROGRAMACAO BASIC 25 



210 
220 

230 

250 



D3FEU3BR2.D4EFU4BR2 

100 DATA DF2DBL2UE2UBR2.DFND2EU 

BR2,R3G3DR3BU4BR2 

110 DATA NR2D4R2U4BH2, BDEND4BR2 

.R2D2L2D2R2BU4BR2,NR2BD2NR2BD2R 

2U4BR2 . D2R2D2U4BR2 , NR2D2R2D2L2B 

E4 , D4R2U2L 2BE2BR2 , R2ND4BR2 , NR 2D 

4R2U2NL2U2BR2 .NR2D2R2D2U4BR2 

200 MX-127:SX-12?:MY-95:SY-95 

SCREEN2 

CIRCLE (127..r*5T7W>i, , ,1 
PI-ATNUJ/15 >^ 

FOR K-5 TO 120 STEPS >v 
LINE{127+55*SIN(K*PI) ,95-55 

*COS(K*PI) )-(127+S9*SIN(K*PI}\9 

5-59*COS{K*PI)) .1 

260 A$-MID$CSTRS(K/5) ,2) :DRAW*B 

M"+STRS(INT(123+68*SIN{K*Piy5>+ 

' , "+STRS (INT (92-68*C0S (K*P^5 ) > + 

-C1S6*:G06UB 1000 

270 NEXT K 

280 IF TIMB<50 THEN 280 

290 TIME-0 :T-T+1 

300 IF T-B6400! THEN T- 

310 H-T/360O 

320 M-T/60-H*T(H)*60 

330 S-T-INT(N)*60-INT( 

340 LX-SX:LY-£Y 

350 SX-127+45*SIN(S*PI 

-45*COS(S*PI*2) 

360 LINE(127.9S)-CSX,S(Y} ,1 

370 LlNEU27,9.5)-(LX,ljY) ,4 

360 LINE (127,95)- CMX.WY) ,4 

390 MX-127+30*SIN(M"PI*2) :MY-95 

-30*COSCM*PI"2^) 

400 LINEC127,95)-(MX.1|Y) ,1 

410 LINE(127,95)-(HX.HY) ,4 

420 HX-127+20*SIN(H*P5*5) :HY-95 

-20*COS[H«PI*5) 

430 LINE(127,95) 

440 GOTO 280 

1000 FOR M-ljTO 

1010 B$-MID$(AS 

1020 IFB$>-"0- AND B$<-"9" THEN 
DRAW NUS(VAL{BS)) :GOTO 1050 

1030 IFBS-"* THEN N-0 ELSE N-AS 

C{BS)-64 / 
L040 DRAW UES(N) 




*3600 



SY-95 



1050 NEXT 
1060 RETURN 

O ZX-81 nao possui o comando 
DRAW; assim, para fazer o rel6gio, 
precisariamos desenhar os ponteiros 
ponto por ponto, via comando PLOT. 
A16m disso, sua tela grafica nao e de ai- 
ta resolucao, como nos outros compu- 
tadores. Por ambos os motivos, uma, 
versao para ele Mo ficar ia muito " 
rartanto, nao a fizfemos. 

/ O capftulo 19 do manual dcf ZX-81 
contem urn programa de relqgio que po- 
deriamos tomar como exemplo, mas este 
rel6gio nao tern ponteiroi. )io contra- 

\ rio dos que aqui apresen/amos\e forma - 
do apenas por mimeros que niarcam a 
fkira, sem o circulo «omo corr. 

O Apple tarn ben/ nao possuAo co- 
mando DRAW; porisso, uma rotina pa- 
ra desenhar letras e/numeros em te|a de 
altay resolucao ficaria extremarriente 
complicada. 

C|da versao emprega uma rotina toa- 
recidi para impfimir os niimeros fern 
suas nosicoes coiiretas ao redor do mir- 
cadorpo relogio, Esta rotina mostra cL 
ramenle como SIN e COS sao usad >s 
para cbntrolar a|s operacoes de impre s- 
sao najtela, Elajse resume mais ou m:- 
nos ao seguinte: 



)-CHX,Hy) p i 

LEN(AS) 
.M.l) I 



10 FOR n-1 TC( 24 

20 PRINT ATfdoordenada x. do 
cehtro da tela + 10*SIN(2*J 
Ps/ny , co^irdenada y do cen- 
tre da tela - 10*COS C2*PI/| 
nf } ;n 

30 NEXT n 

ty maneira de ifrianipular esta retina 
varfe de computadbr para computsior, 
o que a faz parecer*rnais complicada do 
que realmentee. Dejerminada maquina 



pode, por exemplo, ajustar uma varia- 
vei extra para o angulo, em vez de usar 
(2*PI/n) no PRINT AT. 

A rotina do Spectrum segue a mes- 
ma formula das outras, mas parece dl- 
ferente, porque utiliza urn metodo dis- 
tinto para o PRINT AT numa posicao 
da tela: em vez do primeiro numero de- 
pots do comando ser a coordenada x, e 
rdenada y. Alem disuse; TTvakir^O 
para a Osjordenada y na<3 corresponde a-, 
parte inferior da tela,<mas ao topo desta. 

Tente isto\noJpectrum: 

PRINT AT 0,1 

O "a" deyfe ap'srecer no canto supe- 
rior esquerdo da t^a. 

Devido/a esta\peculiaridade do 
PRINT AT do Spectrum, nele o COS e 
a primeiya funcao da linha, ja que de- 
terminaA posicao vertkal do ponto ao/ 
redor dp circulo. \ / 

Se ^jmpararmos o axemplo acima 
com oi programas, veremos que o laao 
FOR. ANEXT que contrqla o comanqo 
PRINT e diferente para cada versao. Na 
verdape, qualquer la<;o fiincionaria em 
qualduer computador; as diferencas sao 
manadas por convenienci^ conforme o 
sisteiia operacional de cada urn. 

Ojobjetivo da rotina e jmprimir m- 
merqs de 1 a 24 ao redo^ do relogio, 
marqando as horas. O laco para o p "o- 
do Spectrum e: 

-1 TO 24 

n 

otina calcula a pOsicao para o 
AT cada vez que'passa pelo la- 
dindo o circulo «m 24 segmeq- 
tos. 

O T^-COLOR e o IsfrSX funcionan 
como o Spectrum mas, fomo usam uma< 
rotina especial para desenhar letras na , 





Spectxum: tint n-logio de 24 horas. 



tela grafiea, seus programas sao urn 
pouco diferentes. Na verdade, eles nao 
imprimem urn numero relacionado com 
o STEP que controla suas posicSes an- 
gulares. O que imprimem e acessado — 
ou chamado — pelo comando STR$, na 
linha que controla a impressao. STR$ 
simplesmente consulta a rotina que de- 
senha letras; nao esta relacionado com 
a posicao onde os numeros sao desenha- 
dos, a qual e deter minada pela variavel 
K 

Coma o circulo tern 360 grans, para 
se imprimir 24 numeros ao redor do re- 
logio, em intervalos iguais, eles devem 
ser poskionados a cada 360/24 (15) 
graus. Do mesmo modo, como ha 2* PI 
radianos num circulo completo, os mi- 
meros estao posicionados a cada 
2*PI/24, ou PI/ 12 radianos. 

Observe que em todos os lacos o pri- 
meiro numero e o primeiro sal to, e nao 

(1 no Spectrum, 5 no TRS-Color e 
MSX). Por isso, o primeiro numero im- 
presso — ou desenhado, como € o caso 
do TRS-Color e do MSX — estara em 

1 hora e nao em 24 horas. 

O restante do programa usa SIN e 
COS para calcular as posicSes dos pon- 
teiros, e uma variavel ou o temporiza- 
dor intemo do computador para acom- 
panhar o tempo, garantindo, assim, que 
o ponteiro de segundos se movimente a 
cada segundo. 



COMO ACESSAR OS DADOS 



O rndtodo para dizer ao computador 
o que ele deve imprimir nao precisa set 
aquele utilizado no exemplo do reldgio. 
Poderiamos arrnazenar os numeros em 
DATA e depois ler (READ) estes nume- 
ros, um de cada vez, a medida que 



o computador passasse pelo laco 
FOR„.NEXT. 

Pode parecer um desperdicio de me- 
mdria mas, na verdade, este metodo nos 
permite fazer mudancas interessantes. 
Por exemplo: existem relogios com alga- 
rismos romanos no lugar dos numeros 
convencionais. Usando uma variavel de 
cadeia, e armazenando em DATA as le- 
tras, e nao os numeros, poderemos so- 
fisticar ainda mais nosso rel6gio. 

Talvez seja preciso mudar o tamanho' 
e/ou a posicao do circulo para que os 
algarismos romanos caibam na tela (o 
numero 8, por exemplo, e VIII, o que to- 
ma bastante espaco!). 

Tambem poderiamos fazer um rel6- 
gio de 24 horas em algarismos romanos, 
E e facil, usando este metodo, mudar 
um rel6gio de 12 para um de 24 horas. 

Adicionar um alarm e ao programa 
tambem nao sera dificil. Para isso, pre- 
cisarfamos calcular, usando SIN e COS, 
a posicao exata em que o ponteiro vai 
estar na hora ajustada para o disparo do 
alarme. Uma nova linha com um 
D7...THEN avisaria ao computador que 
a variavel que ajusta a posicao do pon- 
teiro c igual a caiculada para o alarme 
e, entao, o computador emitiria algum 
som. 

Usando os mesmos principios, seria 
possivel nao s6 fazer um reldtgio de 12 
horas ou de um dia, mas de uma sema- 
na, um mes ou ate mesmo um ano, O 
linico limite e a quantidade de informa- 
cao que podemos colocar na tela. 



DESENHOS ABSTRATOS 



Ate agora, empregamos SIN e COS 
para coisas uteis como relogios, btisso- 
las e graficos. Mas talvez seu uso mais 




, 











~) 




Kspiral no Spectrum, 



Flor no MSX. 








interessante esteja na elaboracilo de gra- 
flcos abstratos, obtidos com a manipu- 
lacao adequada das duas funcoes. 

Desenhando series de circulos e elip- 
ses, ja produzimos algumas figuras in- 
teressantes. Se, por exemplo, movesse- 
mos o centro do circulo ou, entao, au- 
ment&ssemos seu raio a cada volta, o re* 
sultado seria ainda melhor. Essas mu- 
dancas sao muiio faceis de fazer: preci- 
saremos apenas acrescentar algumas li- 
nhas as rotinas conhecidas. 



CO MO FAZER UMA ESPIRAL 



No artigo anterior, apresentamos 
uma rotina que desenha urn circulo pon- 
10 a ponto. Com algumas mudancas — 
por exemplo, o aumento gradativo do 
raio — , poderemos obter uma espiral. 



em vez de um circulo. As versoes a se- 
guir fazem exatamente isto. 



10 LET z-0 

50 FOR n-0 TO 8*PI STEP PI/10 

60 PLOT 128+(5+z)*SIN n, S8+(5 

+z)*COS n 

70 LET z-z+1 

80 NEXT n 



El 



/ 



10 PMODE 4,1 

20 PCLS 

30 SCREEN 1,1 

40 PI-4*ATN(1) 

50 FOR N-0 TO 10*PI STEP PI/10 

60 PSET(127+(5+Z)*SIN(N) ,95+ (5+ 

Z)*COSCN) .5) 



70 Z-Z+1 
80 NEXT N 
90 GOTO 90 

HIE] 



/ 



10 
20 

30 

40 

/ 

SO 



HGR2 

HCOLOR- 
PI - 4 * 

FOR N - 
10 

HPLOT 140 



ATN (1) 
TO 8 * 



(N) ,80 + 
60 Z - Z 
70 NEXT 
80 GOTO 



{5 + 
+ 1 
N 
80 



rWi 



PI STEP PI 



+ (5 
Z) * 



+ Z) 

COS 



SIN 



(N) 






10 SCREEN 2 
20 COLOR 1,15 

30 CLS ■ — 



40 PI-4*ATN(1) 

50 FOR N-0 TO 10*PI STEP PI/10 

60 PSET{128+(5+Z)*SIN(N) ,96+{5+ 

Z)*COS(N)} ,1 

70 Z-Z+l 

BO NEXT N 

90 GOTO 90 

A diferenca emre este programa e o 
que desenha urn circulo e a variavel Z. 
Esta corneca em 0, aumentando cada 
vez que o eomputador passa pelo laco. 
A mudanca que ela traz esta nos calcu- 
los da linha 60 no Sinclair, TRS-Color 
e MSX e da linha 50 no Apple. 

O ponto desenhado e controlado, co- 
mo no circulo, pelo SIN e COS da va- 
riavel de controle no laco. O aumento 
do numero que multiplica o SIN e COS, 
quando o eomputador passa pelo laco, 
faz com que os pontos sejam desenha- 
dos cada vez mais longe do centre A va- 
riavel Z e responsavel pelos consecuti- 
vos aumentos, que resultam na espiral 
crescendo para fora. 

Como no programa do circulo, po- 
demos obter resultados diferentes se mu- 
darmos o salto (STEP) — linha 40 no 
Apple e 50 nos outros — ou a dimen- 
sao do aumento de Z. Alguns STEP in- 
teressantes sao 2, 5, PI e 2*PI- Experi- 
mente-os e descubra porque os resulta- 
dos sao diferentes (lembre-se de que os 
computadores irabalham com radianos, 
e que um circulo tern 2*PI radianos). 

Podemos fazer espirais elipticas do 
mesmo modo que fizemos elipses na pri- 
meira versao deste programa: basta mu- 
dar o numero dentro dos parenteses na 
linha 60 (linha 50 no Apple). 



S0FISTIQUE OS DESENHOS 



Existe um brinquedo infantil que uti- 
liza rodas de plastico para desenhar. A 
crianca coloca uma roda menor dentro 
de uma maior, e a ponta de uma caneta 
num dos furos da roda menor; moven- 
do a roda menor pelo lado inierno da 
maior, a caneta gira. O desenho obtido 
e muito interessante. 

O centra da roda menor esta sempre 
se movendo quando a crianca esta de- 
senhando. o que resulta numa serie de 
espirais continuas, O eomputador con- 
segue um efeito semelhante, desenhan- 
do circulos cujos centros estao em cons- 
tante movimento. 

Os programas que se seguem fazem 
isso, sendo que, para o Spectrum, a es- 
colha da cor e aleatdria. 



20 LET i-INT <RND*7) : INK 2: 
LET a- INT (RND*50) 
30 LET b-INT (RND*50) 
40 FOR n-0 TO 200*PI STEP b/ 
100 

50 IF INKEYSO" THEN GOTO 
10 

60 LET p-120+(a-b)*SIN n: LET 
q-88+(a-b)*COS n 
70 PLOT p+b*SIN x,q+b*COS x. 
B0 LET x-x-a/1074 
90 NEXT n 
110 GOTO 20 

D 

10 PMODE 4,1 :PCLS; SCREEN 1,1 

20 PI-4*ATN(1) 

30 A-RNDt50)-l:B-RND(50)-l 

40 FOR N-0 TO 200*PI STEP B/100 

50 IF INKEYSO"" THEN 10 

60 P-128+(A-B)*SIN(N) :Q-95+(A-B 

r*cos(N) 

70 PSET CP+B*SINCX) ,Q+B*COS(X) , 

5) 

80 X-X-A/1074 

90 NEXT 

100 GOTO 30 



JT 



10 HGR2 ! HCOLOR- 3 

20 PI - 4 * ATN (1) 

30 A - INT { RND (1) * 100) 

40 B - INT t RND (1) * 40) 

50 FOR N - TO 200 * PI STEP 

B / 100 

60 W - PEEK ( - 16384) 

70 POKE - 16368,0 

80 IF M) 127 THEN 10 

90 P - 140 + B * SIN (N) :Q - 6 

+ B * COS (N) 

100 HPLOT P + B * SIN (X),Q + 

B * COS (X) 
110 X ■ X - A / 1000 
120 NEXT N 
130 GOTO 30 



Kfi 



I 10 CLS : 
LET <j-0 



LET X-0: LET p-0 : 



10 SCREEN2:COLORl,15:CLS 

20 PI-4*ATNU) 

30 A-INT(RNDU)*200}+20 

40 B-INT(RNDU)*4Q)+10 

50 FOR N-0 TO 200*PI STEP B/100 

60 IF INKEYSO"" THEN 10 

70 P-128+B*SIN(N) : Q-96+B*CQS (N) 

80 PSET(P+B*SIN{X) ,Q+B*COS(X) > , 

1 

90 X-X-A/1000 

100 NEXT N 

110 GOTO 30 

Nota-se facilmente que o lago 
FOR... NEXT € uma rotina criadora de 
circulos: os lacos para cada eomputador 
sao 

FOR N-0 TO 200*PI 

Como nos outros programas deste ar- 



tigo que usam SIN e COS, essas duas 
funcoes tambem estao inclusas no laco. 
Elas calculam a posicao do proximo 
ponto a ser desenhado, ernbora, e cla- 
ro, os calculos sejam um pouco mais 
complicados do que um simples "SIN 
N" ou "COS N". 

Os demais calculos nesta linha servem 
para incrementar o resultado da expres- 
s3o do SIN ou COS, para que ele possa 
representar uma posicao na tela. Por es- 
sa razao, o centra da tela grafica de ca- 
da eomputador tarrrbem faz parte dos 
calculos. Se olharmos com ateng§o, en- 
conlraremos o centro da coordenada 
"X" numa metade da linha e o centro 
da coordenada "Y" na outra. 

O calculo envolve ainda duas varia- 
veis; como elas recebem valores aleato- 
rios no inicio de cada programa, este 
sempre executa desenhos diferentes ao 
ser rodado . Tente mudar o valor dessas 
variaveis e observe a diferenca. 



ALTERAC0ES 



Podemos fazer outra tipo de alte- 
racao: mudar o STEP do la?o 
FOR. ..NEXT. O resultado sera o au- 
mento ou a diminuicao da densidade dos 
pontos, conforme o STEP seja aumen- 
tado ou diminuido. Para a obtencao do 
desenho, o centra do circulo deve mu- 
dar cada vez que um ponto e desenha- 
do. Para isso, colocamos o proprio cen- 
tra do circulo num outro circulo, que gi- 
ra a cada passo do laco. O efeito e pro- 
duzido pelo segundo grupo de calculos 
do SIN e COS, baseado em x. Essa va- 
riavel decresce levemente cada vez que 
o eomputador passa pelo laco. 

Tente alterar o tanto que a variavel 
(x) diminui e veja o que acontece com 
os desenhos. Estes seis valores trazem 
resultados interessantes ■ A/10JA/-10, 
A/ -50, A/0.5, A/0.1. A/0.00). 

Todas as versoes permit em que rei- 
niciemos o programa a qualquer hora, 
bastando apertar uma tecla. O Spec- 
trum, o TRS-Color e o MSX usam o 
INKEYS para verificar se alguma tecla 
foi pressionada, enquanto o Apple bus- 
ca essa informacao na memoria (linhas 
60 a 80, ja eomentadas em artigos ante- 
riores sobre PEEK e POKE). 

Examinaremos ainda diferentes usos 
para funcoes trigonom&ricas e angu la- 
res. No prdximo artigo desta sine, tra- 
taremos de quadrados, cubos, raizes 
quadradas e outras ferramentas podero- 
sas para controlar o comportamento das 
variaveis. Voce tera, assim. novas opor- 
tunidades de dar as funcoes empregos 
que, a primeira vista, nao parecem es- 
tar reiacionados com a matematica. 

















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 
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■ d r 


r^l 


f£li 




microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



■■■■NO PROXIMO NUMEROHIIIIIIIII 



PROGRAMACAO BASIC 

Os codigos de controle sao muito uteis para uma s6rie de 
truques de programacao. Veja como us3-los nos micros MSX. 

APLICACOES 

Voce acha diffcil converter metro em polegadas ou gala"o 
em litros? Nosso programa conversor resolve esse problema. 

PROGRAMACAO BASIC 

c6digo ASCII foi concebido para possibilitar a transfer§ncia 
de dados de um computador para outro. Aprenda a utiliz=i-lo. 

PROGRAMACAO DE JOGOS 

Divtrta-se: pratique tiro ao alvo, cacando 
patos... no computador. 
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